Compiler données en colonnes de divers onglets dans un seul

Bonjour,

Je débute en VBA, j'arrive à m'en sortir pour des choses basiques, mais quand ça se corse, je suis vite perdu !

J'utilise souvent des codes de forums comme celui ci, mais là je n'arrive pas à trouver mon bonheur

Je m'explique :

J'ai un fichier excel avec X onglets.

Dans chaque onglet, j'ai 107 colonnes (de A à DC) et 2127 lignes.

Mes colonnes A à G sont identiques dans chaque onglet (le contenu des cellules aussi). Seul le contenu des colonnes H à DC varie.

Je cherche donc à avoir un seul onglet avec le contenu des colonnes A à G puis le contenu pour chaque onglet des colonnes H à DC à la suite des autres.

A savoir que j'ai des vides dans mes cellules (que je peux combler au pire)

L'idéal serait de pouvoir boucler sur mes X onglets

Voici en fichier joint ce que j'ai et ce que je souhaiterai.

Pour le moment, je n'ai réussi (avec l'aide de code sur internet) qu'à copier mes tableaux les uns sous les autres...

Merci d'avance

Bonjour,

une proposition

Sub aargh()
    With Sheets("recap")
        .Cells.ClearContents
        For Each ws In Sheets
            If ws.Name <> .Name Then
                lc = ws.Cells(1, Columns.Count).End(xlToLeft).Column
                ll = ws.Cells(Rows.Count, 1).End(xlUp).Row
                If .Cells(1, 1) = "" Then fc = 1: nc = 1 Else fc = 2
                Range(ws.Cells(1, fc), ws.Cells(ll, lc)).Copy .Cells(1, nc)
                nc = nc + lc
            End If
        Next
    End With
End Sub

Bonjour,

Merci de la rapidité et de l'efficacité !

Ca à l'air de répondre à mon besoin. J'ai identifié un des souci, c'est qu'effectivement j'étais en row.count et forcément ... ^^

Merci beaucoup