Sub GénérerLiens_Clic()
'Création des liens HyperText
Dim Cel as range
Columns(18).Hyperlinks.Delete
set cel = Range("AD4")
Do while cells(cel.row, 18) <> ""
ActiveSheet.Hyperlinks.Add Anchor:=cel.Offset(0, -12), Address:="http://adresse.local/Documents%20partages/" & cel.Value
set cel=cel.offset(1)
loop
End Sub