Sub Macro2()
Dim vrtSelectedItem As Variant, wbksource As Workbook, wbkcible As Workbook, fd As Object, Nom$
Dim NbClés As Integer, Ligne As Integer
Set wbkcible = ThisWorkbook
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.Title = "Choisissez le fichier"
.Filters.Clear
.Filters.Add "Fichier Excel", "*.xls*"
.AllowMultiSelect = False
If .Show <> 0 Then
Nom = .SelectedItems(1)
Else
MsgBox "Aucun fichier n'a été sélectionné", , "Erreur": Exit Sub
End If
End With
End Sub