Sub TRANSFERT()
    ' Déclaration des variables
    Dim ligne As Integer
    Dim i As Integer
     
    ' Initialisation de la variable ligne à 2 (la ligne 1 est la ligne des titres)
    ligne = 2
     
    ' Boucle permettant de sélectionner plusieurs fichiers
    Do
        ' Sélection du classeur source à partir d'une fenêtre
        cheminfichier = Application.GetOpenFilename("Fichiers Excels (*.xls), *.xls" )
         
        ' Si on clique sur Annuler dans la fenêtre, on sort de la boucle
        If cheminfichier = False Then
            Exit Do
        End If
         
        'Ouverture du classeur source
        Workbooks.Open cheminfichier
         
        ' Récupération du nom du classeur + extension
        For i = Len(cheminfichier) To 1 Step -1
            If Mid(cheminfichier, i, 1) = "\" Then Exit For
        Next
        nomfichier = Mid(cheminfichier, i + 1, Len(cheminfichier))
         
        ' Copie des valeurs entre les classeurs
        ThisWorkbook.Sheets("Feuil2" ).Range("A" & ligne) = Workbooks(nomfichier).Sheets("Nombre" ).Range("F3" ).Value
        ThisWorkbook.Sheets("Feuil2" ).Range("B" & ligne) = Workbooks(nomfichier).Sheets("Nombre" ).Range("E6" ).Value
        ThisWorkbook.Sheets("Feuil2" ).Range("C" & ligne) = Workbooks(nomfichier).Sheets("Nombre" ).Range("E7" ).Value
        ThisWorkbook.Sheets("Feuil2" ).Range("D" & ligne) = Workbooks(nomfichier).Sheets("Nombre" ).Range("E8" ).Value
         
        ' Fermeture du classeur source
        Workbooks(nomfichier).Close
         
        ' Incrémentation du numéro de ligne
        ligne = ligne + 1
    Loop
End Sub