comment ouvrir un fichier excel selon item choisir

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