Hyperlien sur une case choisie (Résolu)

Sub Hyper()
Dim Bat$, App$, Loc$, Ents$, DPnum$, NomFichierPDF As String
derlig = [T60000].End(xlUp).Row + 5
ActiveCell.CurrentRegion.Select
With Sheets("Récap DP")
   DPnum = .Range("T2", .Range("T2").End(xlDown))
   Loc = .Range("I2", .Range("I2").End(xlDown))
   Ents = .Range("O2", .Range("O2").End(xlDown))
   App = .Range("G2", .Range("G2").End(xlDown))
   Bat = .Range("H2", .Range("H2").End(xlDown))
End With
NomFichierPDF = "C:\DP\" & Bat & "\" & App & "\" & "DP " & DPnum & " " & Loc & " " & Ents & ".pdf"
ActiveCell.Hyperlinks.Add _
   Anchor:=Range("T" & [T65000].End(xlUp).Row + 1), _
   Address:=NomFichierPDF, _
   TextToDisplay:=DPnum
End Sub