VBA Picture insert from directoy in merged cell and scaling

See attachment, this is how I exactly have it in my workbook.

- L13 automacically gets the name of the worksheet;
- K13 reads the value of L13 (a tweek because otherwise the Vloopup didn' t work in the sheet);
- I13 looks up the value of K13 in the sheet "Data" and gives back the value of column B in the sheet "Data"

The macro must be triggered by opening of the worksheet.