Hyperlien qui ne fonctionne pas! (Résolu)

Option Explicit
Sub Hyper()

Dim Bat As String
Dim App As String
Dim Loc As String
Dim Ents As String
Dim DPnum As String
Dim Obj As String
Dim NomFichierPDF As String
Dim Filename As String
Dim PartiesCommunes As String
Dim i As Integer

With Sheets("Récap DP")
For i = 2 To .Range("A65535").End(xlUp).Row
    DPnum = .Range("T" & i)
    Loc = .Range("I" & i)
    Ents = .Range("O" & i)
    App = .Range("G" & i)
    Bat = .Range("H" & i)
    Obj = .Range("Q" & i)
    
    If .Range("T" & i) = "F ?????" Then
    
    'enr Fax
    NomFichierPDF = "Fax " & " " & DPnum & " " & Obj & " " & Ents
    Filename = "C:\Bleu\Fax\" & Ents & "\" & NomFichierPDF & ".pdf"
Else
    'enr DP Locataires
    If App <> "" Then
    NomFichierPDF = "DP" & " " & DPnum & " " & Loc & " " & Ents
    Filename = "C:\Rouge\" & Bat & "\" & App & "\" & NomFichierPDF & ".pdf"
Else
    'enr DP Parties communes
    NomFichierPDF = "DP" & " " & DPnum & " " & Loc & " " & Ents
    Filename = "C:\Vert\" & PartiesCommunes & "\" & NomFichierPDF & ".pdf"

    End If
End If
    
ActiveCell.Hyperlinks.Add _
    Anchor:=Range("V" & i), _
    Address:=Filename, _
    TextToDisplay:=Filename
   Next i
End With

ActiveCell = [X60000].End(xlDown).Row
End Sub