Réunir plusieurs colonnes d'onglet différent en 1 seule

Bonjour,

Je voudrais pouvoir à l'aide d'une macro copier les colonnes A de chacun des onglets de mon fichier et les coller dans un seul onglet, l'onglet "Bilan", mais à la suite pour pouvoir ensuite éliminer les doublons.

J'ai commencé un code vba mais je bloque sur l'erreur.

Sub copie_colle()
'
' copie_colle Macro
'
Dim nb_feuille As Long
nb_feuille = ThisWorkbook.Sheets.Count

For i = 1 To nb_feuille

    ActiveSheet.Next.Select

    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Bilan").Select
    Range("A2").Select
    Selection.End(xlDown).Select
    ActiveSheet.Paste

    ActiveSheet.Previous.Select

Next
    

Je vous transmets aussi le fichier, il s'agit juste d'une illustration c'est pour cela qu'il y a peu de contenu dans les fichiers.

Merci d'avance

Bonjour !

Le passage par VBA est une obligation indépassable ?

Je vous propose d'étudier la proposition suivante via Power Query qui vous retournera une liste "cumulée" sans doublon.

Bonjour JFL,

Merci pour votre réponse.

Je préfèrerais passer par VBA car il s'agit d'un petit bloc sur lequel je coince qui fera partie d'un fichier bien plus important.

Je note et laisse le soin aux spécialistes VBA de prendre le relai.

Merci du retour !

Bonjour, dans ce cas il vaut mieux faire une boucle sur le nom de feuille que sur le nombre de feuille.

Sinon vous bouclez sur la feuille Bilan aussi donc plantage.

Biensur plus le nombre d'onglet sera grand plus la macro sera longue

Sub Macro1()
Application.ScreenUpdating = False
Dim wSht As Worksheet
For Each wSht In Worksheets
    If wSht.Name <> "Bilan" Then
   wSht.Activate
   Range("A2:" & "A" & Range("A65536").End(xlUp).Row).Copy

   Worksheets("Bilan").Activate
   Range("A" & Range("A65536").End(xlUp).Row + 1).Select
   ActiveSheet.Paste

 End If

    Next

    Application.ScreenUpdating = True

End Sub

Ca marche très bien, merci beaucoup !