Private Sub CommandButton1_Click()
With Sheets("LIEN")
For i = 2 To .Range("C" & .Rows.Count).End(xlUp).Row
If .Cells(i, "C").Value <> "" Then .Hyperlinks.Add Anchor:=.Cells(i, "D"), Address:="\\mon-pc\PUB\" & .Cells(i, "C").Value & "\"
Next i
End With
End Sub