Sub ajouttesthypertxt()
Dim Addr, A As Variant
Dim cell As Range
Addr = ThisWorkbook.Path & '\\Docs\\'
For Each cell In Range('F2:F310')
A = cell.Value
If Dir(Addr & A & '.pdf') Then
ActiveSheet.Hyperlinks.Add Anchor:=cell.Offset(0, -1), Address:=Addr & cell & '.pdf'
End If
Next
End Sub