Bonjour à vous,

pour des besoins pro, je découvre les macro excel, mes connaissances sont donc très limitées, mais les possibilités sont intéressantes...

Actuellement, j'ai créé une fonction qui me permet d'importer des valeurs depuis un autre fichier.
Mon code (qui suit) fonctionne, mais je souhaiterais utiliser une boucle (For Each ?) afin de l’alléger mais je me retrouve avec des erreurs 400.

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub LoadInfo()
    fichier = "C:\Fichier-a-Utiliser.xlsm"    
    Set WorkBookLoaded = Workbooks.Open(Filename:=fichier, ReadOnly:=True)    
    Set SheetLoaded = WorkBookLoaded.Sheets("Compte-rendu")
 
    With ThisWorkbook.Sheets("Compte-rendu")
        .Range("L5").Value = SheetLoaded.Range("L5").Value
        .Range("L6").Value = SheetLoaded.Range("L6").Value
        ' et de nombreuses autres cellules
    End With
 
    WorkBookLoaded.Close savechanges:=False
End Sub
dans le with je souhaiterais une commande du genre (si j'ai bien pigé) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
    With ThisWorkbook.Sheets("Compte-rendu")
        For Each cellule in .Range("L5:L6, F5:F10")
            .Range(cellule).Value = SheetLoaded.Range(cellule).Value
        Next cellule
    End With
Et quand je lance j'ai le droit à une erreur 400...

Comment faire fonctionner ma boucle ?

Merci de votre aide et bonne journée à vous !