Sheets("Feuil1").Shapes("Connecteur droit avec flèche 2").Line.Weight = Sheets("Feuil1").Range("c3").Value
Sub Epaisseur()
Dim Rep
Rep = Application.InputBox(prompt:="Indiquez une épaisseur de ligne (1; 1,5; 2; etc...) ", Type:=1)
If Rep > 0 Then ActiveSheet.Shapes(Application.Caller).Line.Weight = Rep
End Sub