Copier/Coller/Transposer données plusieurs onglets dans un s

Bonjour,

Tout d'abord merci beaucoup pour votre aide et votre site qui est une source inépuisable d'information!!!

J'ai un fichier avec une multitude d'onglets où les données sont sous la forme A1:B50, je voudrais concaténer ces informations dans un onglet global en copiant la colonne B1:B50 et transposant vers A6:AN6.

Ainsi de suite de manière à avoir un tableau avec en ligne les infos des colonnes "B" de chaque onglet.

J'ai écrit un code mais à mon avis il manque quelque chose. J'ai mis un filtre de manière à reprendre seulement les onglets qui ont en A6 la valeur "Client". De plus j'aimerais pouvoir supprimer les colonnes blanches à l'arrivée.

Merci d 'avance !!!!

bonjour,

la macro modifiée :

Sub MAJ_TDB()
Dim WS As Worksheet
Dim ligne%, i%
ligne = Range("A" & Rows.Count).End(xlUp).Row + 1
ligne = 6
Range("A6:AS" & ligne).Clear
For Each WS In Worksheets
   If WS.Range("A6").Value = "Client" Then
      WS.Range("B6:B50").Copy
      Range("A" & ligne).PasteSpecial Paste:=xlPasteAll, Transpose:=True
      ligne = ligne + 1
   End If
Next WS
For i = 40 To 5 Step -1
   If Cells(5, i).Value = "" Then Columns(i).Delete
Next
End Sub

A+

Top!!! Super merci bcp!!!