Sub Macro1()
For Each cel In Range("A7:A67,G7:G36")
[COLOR="Red"]ofset[/COLOR] = IIf(cel.Column = 1, 1, -1)
GA1 = "C:\Documents and Settings\Yannick\Bureau\euro\" & cel.Offset(, [COLOR="Red"]ofset[/COLOR]) & ".jpg"
If Dir(GA1) <> "" Then
Set pic = ActiveSheet.Pictures.Insert("C:\Documents and Settings\Yannick\Bureau\euro\" & cel.Offset(, [COLOR="Red"]ofset[/COLOR]) & ".jpg")
With pic
.Top = cel.Offset(, [COLOR="Red"]ofset[/COLOR]).Top
.Left = cel.Offset(, [COLOR="Red"]ofset[/COLOR]).Left
.Width = cel.Offset(, [COLOR="Red"]ofset[/COLOR]).Width
.Height = cel.Offset(, [COLOR="Red"]ofset[/COLOR]).Height
End With
End If
Next cel
End Sub