Sub test1()
'fonctionne Pas
'Mais c'est ce que je veux
Dim a As String
ChDrive "\\MonOrdi\Document" 'Choix du répertoire à ouvrir Sur Réseau
a = Application.GetOpenFilename("Fichier Texte (*.rtf), *.rtf", , _
"Sélection de vos fichiers Texte", , True)
If Not a = "" Then Range("A1").Value = a
End Sub