Sub CreeliensImageVersBase()
Dim A As Long, S As Shape
A = 2 ' ligne 2
For i = 1 To Sheets("Plan").Pictures.Count ' je compte mes images
Set S = Sheets("plan").Shapes(i) 'je prend le premier
Sheets("Plan").Hyperlinks.Add Anchor:=S, Address:="", SubAddress:="base!b" & CStr(A)
A = A + 1
Next i
End Sub