Bonjour Kz11
Une petite présentation ICI serait la bienvenue
Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER] ainsi que ses fonctionnalités
qui vous aideront dans vos demandes et réponses sur ce forum.
Concernant votre demande, avec des raccourcis clavier cela peut aller très vite
Sinon voici un code à mettre dans un module
Sub DéplacerColonnes()
Dim dCol As Long, Col As Long, dLig As Long
With ActiveSheet
' Dernière colonne remplie de la feuille
dCol = .Cells(1, Columns.Count).End(xlToLeft).Column
' Pour chaque groupe de 3 colonnes
For Col = 4 To dCol Step 3
' Dernière ligne remplie de la colonnes
dLig = .Cells(Rows.Count, Col).End(xlUp).Row
' Déplacer les 3 colonnes
.Cells(2, Col).Resize(dLig - 1, 3).Cut _
Destination:=.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Next Col
' Supprimer les entêtes en trop
.Range(.Cells(4, 1), .Cells(dCol, 1)).Clear
End With
End Sub
Merci de votre participation
Cordialement