Private Sub CommandButton1_Click() ' Bouton Valider
With Sheets(1)
If [COLOR="Red"]lig[/COLOR] Then [COLOR="red"]'voir macro CréerLien[/COLOR]
[COLOR="red"]LigneCourante = .Cells(65536, lig + ColonneLien).End(xlUp).Row + 1[/COLOR]
.Cells(LigneCourante, [COLOR="red"]lig[/COLOR] + ColonneLien).Value = Doc(lig)
If ExisteDoc(lig) Then .Hyperlinks.Add Anchor:=.Cells(LigneCourante, [COLOR="red"]lig[/COLOR] + ColonneLien), _
Address:=.Cells(LigneCourante, [COLOR="red"]lig[/COLOR] + ColonneLien), TextToDisplay:=NDF(Doc(lig))
End If
End With
Unload Me
End Sub