Sub hyper()
Dim s As Shape
With Worksheets("Catalogue")
dl = .Range("A100").End(xlUp).Row
For x = 5 To dl
ch = .Cells(x, 5).Text
's = .Shapes.Range("b" & x).Name
's.Name = s.TextFrame.Characters.Text
' PERMETTRE DE METTRE VIA VARIABLE LE N° SHAPE DE LA COL B
'MsgBox .Shapes(ActiveSheet.Shapes.Count).Name
'MsgBox .Shapes(x - 4).Name
MsgBox .Shapes(x - 4).Select
' Il faudrait récupérer le nom/N° de l'image en B comme N_img="Picture 3"
MsgBox .Shapes(x - 4).Name
' le liens
ActiveSheet.Hyperlinks.Add Anchor:=.Shapes(x - 4), Address:=ch
Next x
End With
End Sub