Bonjour à tous,
Je suis entrain de réaliser une macro pour que celle ci me colle 4 plages de données les uns à la suite des autres sur une ligne.
Mais quand je compile mon code il m'indique une erreur sur la ligne liste(1+i) :
Private Sub Tableau()
Dim wsResult As Object
Dim Liste1, Liste2, Liste3, Liste4
Dim dercol, i As Integer
Set wsResult = Worksheets("Données")
wsResult.Activate
Liste1 = Range("ListeA").Name
Liste2 = Range("ListeB").Name
Liste3 = Range("ListeC").Name
Liste4 = Range("ListeD").Name
For i = 0 To 3
dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Offset(0, 1).Column
Liste(1 + i).Copy
Cells(1, dercol).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Next i
End sub
Pouvez vous m'expliquer d'ou vient l'erreur ?