Copier/Coller des colonnes de diverses feuilles les unes à la suite

Bonjour le forum,

J'espère que vous allez bien.

Alors voilà j'aimerai copier/coller des colonnes à la suite des unes des autres j'ai essayé quelques choses mais mon programme "recap" ne semble pas vouloir marché. Pouvez vous m'aidez ?

Merci d'avance pour votre aide,

Cordialement,

Roijio.

Bonjour Roijio, le forum,

dl est définie en fonction de la colonne D.....qui est vide....

Les 2 première feuilles de ton Array ne correspondent pas aux noms des 2 premiers onglets (tu as inversé le E et le A)...

A tester:

Sub recap()
 Dim sh As Worksheet, i%, dl%
 Dim WSH

 Application.ScreenUpdating = False

   Set WSH = Sheets(Array("ELS TEAM", "ELS TEAS", "AVIONICS", "LCD", "SINGAPORE", "TTS", "MIS"))
    For Each sh In WSH
      dl = sh.UsedRange.Rows.Count
      'dl = sh.Range("Q" & Rows.Count).End(xlUp).Row
       sh.Range("Q2:S" & dl).Copy Sheets("Recap").Range("Q" & Sheets("Recap").Range("Q" & Rows.Count).End(xlUp).Row + 1)
    Next sh
End Sub

Cordialement,

Bonjour @xorsankukai

Merci beaucoup de votre réponse, effectivement mon erreur est si évidente. Merci de m'avoir proposé un code plus simple cela fonctionne à merveille.

Bonne journée à vous ,

Roijio.