Erreur de compilation

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 ?

Bonjour,

Heu... ça me semble assez incompréhensible :

Joignez un petit fichier (3 Lignes/Colonnes) par liste qui illustre ce que vous voulez faire.

Les données de départ

Le résultat attendu à l'arrivée

A+

Voici un fichier exemple

Bonjour,

une proposition, n'oublie pas de définir listeB,ListeC et ListeD pour que ce code fonctionne sur ton exemple.

Sub Tableau()
    Dim dercol, i As Integer
    Worksheets("Données").Activate
    liste = Split("ListeA,ListeB,ListeC,ListeD", ",")
    For i = 0 To 3
        dercol = Cells(i + 1, Cells.Columns.Count).End(xlToLeft).Offset(0, 1).Column
        Range(liste(i)).Copy
        Cells(1, dercol).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
                                      False, Transpose:=True
    Next i
End Sub

Merci h2so4,

Les listes sont nommées dés l'ouverture du fichier, je voudrais les reprendre afin de recopier les valeurs mais quand j'applique ta macro, j'ai une erreur sur "Liste =" ( Variable non définie).

Mettre

Dim Liste

Super , merci