XL 2013 Ouvrir un dossier Windows afin de montrer le chemin

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

Sub Chemin()
Dim Fichier_à_Ouvrir As Variant
ChDrive "c:"
ChDir "c:\Windows\Cursors"                    'à adapter
Fichier_à_Ouvrir = Application.GetOpenFilename()
If VarType(Fichier_à_Ouvrir) <> vbString Then Exit Sub ' Pour éviter plantage si opérateur renonce.
Workbooks.Open Filename:=Fichier_à_Ouvrir
End Sub