Sub Tst()
Dim Fichier As Variant
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
Fichier = Application.GetOpenFilename("Fichier Txt (*.txt), *.txt")
If Fichier <> False Then Lire Fichier
End Sub
Private Sub Lire(sNomFichier As String)
.....
End Sub