Sub MontreMoiLeChemin()
Dim fd As Office.FileDialog, strFichier As String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Filters.Clear
.Filters.Add "Curseurs", "*.cur", 1 ' Mettre type de fichiers désirés
.Title = "Choisissez un fichier de forme de curseur." ' Mettre un titre
.AllowMultiSelect = False
.InitialFileName = "C:\Windows\Cursors" ' Mettre le chemin
If .Show = True Then
strFichier = .SelectedItems(1)
End If
End With
End Sub