On pourrait utiliser un InputBox mais la saisie complète d'un dossier avec son chemin est assez laborieuse et risque de générer des erreurs.
Donc, on va plutôt utiliser une méthode qui va permettre à l'utilisateur de choisir le dossier via une fenêtre Windows. Il s'agit d'afficher la boîte de dialogue Picker.
Sub choix_dossier()
Dim x As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
If .SelectedItems.Count > 0 Then
dossier = .SelectedItems(1)
MsgBox dossier
End If
End With
End Sub