Regrouper plusieurs onglets Excel en 1 seul avec mise à jour

Bonjour,

Je sais que le sujet a été déjà traité, mais je n'ai pas réussi à "trouver" mon erreur.

J'ai un fichier Excel avec 58 onglets "matériaux" comprenant des infos fournisseurs. Je souhaite regrouper toutes ces informations dans un 1er onglet "SYNTHESE".

J'ai essayé ça :

Sub LISTING()

Dim Classeur As Workbook

Set Classeur = ThisWorkbook

For i = 2 To 59

Sheets(i).Activate

Sheets(i).Range("A1:G3000").Copy Classeur.Sheets("SYNTHSE").Range("A10000").End(xlUp)(2)

Sheets("SYNTHESE").Activate

Next i

End Sub

Mais j'obtiens : erreur d'exécution "9":

L'indice est en dehors des dimensions du tableau.

De plus j'aurais aimé avoir un curseur pour faciliter la mise à jour, je en suis pas la seule à utiliser ce fichier

Merci d'avance de votre aide.

Ps: je suis vraiment très très novice, donc ne lésinez pas sur les explications

Bonjour Jillian et bienvenue,

à tester,

Sub LISTING()
Dim Classeur As Workbook, sh As Worksheet, i As Long, LastRow As Long
Set Classeur = ThisWorkbook
Set sh = Sheets("SYNTHESE")

For i = 1 To Sheets.Count
    LastRow = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
    If Sheets(i).Name <> sh.Name Then
        Sheets(i).Range("A1:G3000").Copy sh.Range("A" & LastRow)
    End If
Next i

End Sub