Salut Johnny Boy et le forum
Difficile de s'appuyer sur un sujet pour faire des tests.
Sub test()
'Déclaration =======================================
Dim F_1 As Worksheet, F_2 As Worksheet
Dim X As Long, Y As Long, Lig As Long
'MEI ===============================================
Set F_1 = Sheets("Source")
Set F_2 = Sheets("arrivée")
'Traitement ========================================
For X = 1 To F_1.Cells(Rows.Count, "A").End(xlUp).Row Step 11
If UCase(F_1.Cells(X, "A")) = "COMPTE" Then
Lig = F_2.Cells(Rows.Count, "A").End(xlUp).Row + 1
For Y = 1 To 10
F_2.Cells(Lig, Y) = F_1.Cells(X - 1 + Y, "B")
Next Y
End If
Next X
End Sub
Il faut changer les noms des feuilles en les remplaçant par ceux que tu as.
Sinon, la macro transpose par série de 10 avec une ligne de séparation.
A+