Sub les()
Dim Lien
Selection.End(xlDown).Select
fin = Selection.Row
For i = 2 To fin
Range("H" & i).Select
Lien = Range("H" & i).Value
If Lien = "" Then GoTo retour
Sheets("GestionMail").Hyperlinks.Add Anchor:=Selection, Address:=Lien
Next
retour:
End Sub