Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [C:C]) Is Nothing Or Not IsDate(Target(1)) Then Exit Sub
Dim chemin$, fichier$
Cancel = True
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & Format(Target, "dddd d mmmm yyyy") & "*.pdf")
If fichier = "" Then MsgBox "Fichier PDF inexistant pour cette date...": Exit Sub
While fichier <> ""
ThisWorkbook.FollowHyperlink chemin & fichier
fichier = Dir
Wend
End Sub