Copier/coller sur la colonne suivante quand un mot est reconnu

Sub test()

'Déclaration de la variable qui comptera les colonnes, initialisation à 1

Dim colonne As Integer
colonne = 1

'Déclaration et initialisation de la variable qui renvoit le nombre total de ligne de la colonne A
Dim derlig As Integer
derlig = Range("A" & Rows.Count).End(xlUp).Row

'Un petit renvoi des familles qui permet de relancer la boucle à chaque changement de colonne
debutboucle:

'On boucle sur les ligne, de la seconde à la dernière
For i = 2 To derlig
    
    'Si la cellule contient "Chiffre d'Affaire", alors
    If Cells(i, colonne).Value Like "*Chiffre d'Affaire*" Then
    
        'On coupe la plage entre cette cellule et la dernière de la colonne
        Range(Cells(i, colonne), Cells(derlig, colonne)).Cut
        
        'On se décale d'une colonne via la variable
        colonne = colonne + 1
        
        'On colle sur la première cellule de la colonne suivante
        Cells(1, colonne).Select
        ActiveSheet.Paste
        
        'Juste pour optimiser la boucle, recalcule de la dernière ligne de la nouvelle colonne créée
        derlig = derlig - i + 1
        
        'Et on repart au début de la boucle, qui va maintenant tourner sur la colonne suivante
        GoTo debutboucle
        
    End If
    
Next

End Sub