Sub CreationLiens() 'de seniorpapou de 2008
Dim Lien As String
Dim Fichier As String
'Const Dossier As String = "C:\Users\christian\Desktop\Factures et Devis\Archives\"
Const Dossier As String = "C:\Users\Jean-Claude\Desktop\"
r = Range("B10000").End(xlUp).Row
Columns("F:F").Clear
For I = 2 To r
Fichier = Dossier & Range("B" & I) & ".xlsx"
If Len(Dir(Fichier, vbNormal)) > 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Range("F" & I), Address:=Dossier & Range("B" & I) & ".xlsx", TextToDisplay:=CStr(Range("B" & I))
Else
Range("F" & I) = ""
End If
Dir ("")
Next
End Sub