Dim chemin As String
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = ThisWorkbook.Path & "\"
.Filters.Clear
.Filters.Add "ma descrip", "*.pdf"
.Show
If .SelectedItems.Count > 0 Then ThisWorkbook.FollowHyperlink .SelectedItems(1)
End With