Sub mettre_liens()
Dim fin
Dim nRow
For nRow = 5 To Range("B4").End(xlDown).Row
With Sheets("Contenu de répertoire")
If .Cells(nRow, 4).Value <> "" Then
.Hyperlinks.Add ActiveSheet.Range("B" & nRow), ActiveSheet.Range("D" & nRow).Value
.Hyperlinks.Add ActiveSheet.Range("D" & nRow), ActiveSheet.Range("D" & nRow).Value
.Hyperlinks.Add ActiveSheet.Range("E" & nRow), ActiveSheet.Range("E" & nRow).Value
End If
End With
Next
MsgBox "Remplissage liens terminé !", vbInformation, "Opération terminée"
End Sub