Sub Crée_Hyperlien()
Dim Ma_Zone As Range, C As Range, LH As String, Nom
Set Ma_Zone = Selection
With Ma_Zone
For Each C In .Cells
With C
If .Value <> "" Then
LH = Replace(.Value, Chr(34), "") 'Supprimer les " du texte
Nom = Split(LH, "\") 'Extraire le nom+extension (dernier élément du tableau)
Nom = Split(Nom(UBound(Nom)), ".")(0) 'Extraire le nom sans extension (premier élément du tableau)
If .Hyperlinks.Count > 0 Then C.Hyperlinks.Delete 'Supprimer le LH de la cellule s'il existe
.Hyperlinks.Add Anchor:=C, Address:=LH, ScreenTip:=LH, TextToDisplay:=Nom 'Créer le Lien HT
End If
End With
Next
'Mise en forme sur toute la sélection
.HorizontalAlignment = xlLeft
.Font.Size = 12
'...
End With
End Sub