Sub Bouton7_QuandClic()
Dim c As Range
Dim maVar() As String
Dim x As Byte, ligne As Byte
Dim i As Byte, j As Byte, colonne As Byte
ReDim maVar(1 To 3, 1 To 1)
x = 2
'complete les entetes du tablo
maVar(1, 1) = 'tutu'
maVar(2, 1) = 'tata'
maVar(3, 1) = 'toto'
'boucle sur chaque ligne de la colonne A
For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
x = x + 1
'affecte la variable colonne suivant le nom
Select Case c
Case 'tutu': colonne = 1
Case 'tata': colonne = 2
Case 'toto': colonne = 3
Case Else: colonne = 0
End Select
'remplit le tableau dynamique
If colonne <> 0 Then 'si colonne=0 c'est que c n'est ni tata, tutu ou toto
ReDim Preserve maVar(1 To 3, 1 To x)
maVar(colonne, x) = c.Offset(0, 1)
End If
Next c
'renvoi les données
For i = 1 To UBound(maVar) 'les lignes
ligne = 1
For j = 1 To UBound(maVar, 2) 'les colonnes
If maVar(i, j) <> '' Then 'exclut les lignes vides
Cells(ligne, i + 4) = maVar(i, j) 'renvoi à partir de la colonne E
ligne = ligne + 1
End If
Next j
Next i
End Sub