Ouverture fichiers (vba excel)

Bonjour,

J'ai un petit souci avec ce code:

Private Sub CommandButton1_Click()
x = GetDirectory
ligne = Dir(x & "\" & "*.xls")
'Ou en indiquant directement le disque et le type de fichier
'Dir("D:\Dossier\*.xls") ou Dir("D:\Dossier\*.doc")
'ou tous les types :
'ligne = Dir("D:\Dossier\*.*")
Do While ligne <> ""
DoEvents
ligne = Dir()
ListBox1.AddItem ligne
Loop
End Sub

Private Sub CommandButton3_Click()
Unload Fichiers
End Sub

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
If mbDisableEvents Then Exit Sub
mbDisableEvents = True
With Me.ListBox1
If .ListCount > 0 Then
If .ListIndex = .ListCount - 1 Then
.ListIndex = .ListCount - 1
End If
End If
End With
mbDisableEvents = False
End Sub
Private Sub CommandButton2_Click()
'pour ouvrir le Classeur sélectionné
nom = x & "\" & ListBox1
Workbooks.Open Filename:=(nom)
End Sub

En modifiant la ligne: = Dir(x & "\" & "*.xls") par "*.*", je ne sais pas comment codé
le deuxième bouton pour que je puisse ouvrir tous types de fichiers.

Merci d'avance pour votre aide.