With Application.FileDialog(msoFileDialogFilePicker) 'Sortir la fenêtre de dialogue
.AllowMultiSelect = True
.Title = "sélection des fichiers à ouvrir"
.Filters.Clear
.Filters.Add "Excel files", "*.XLS*" 'Sélectionne seulement les fichiers Excel
If .Show = True Then
If .SelectedItems.Count = 2 Then