Bonjour,
Effectivement, navré, mais ce n'est pas très compliqué à faire quand même
Il faut remplacer la ligne "Rep.SelectedItems.Count" par ça
' Choix du dossier ou sortie
If Rep.SelectedItems.Count > 0 Then
Chemin = Rep.SelectedItems(1)
Else
Exit Sub
End If