Copier à une ligne en dessous

Bonjour à tous,

Etant débutante sur VBA, j'aurai besoin d'un petit coup de main.

Mon document se presente ainsi : Chaque titre représente une ligne avec différentes caractéristique sur les colonnes O à AF. Je souhaite copier les titres dont l'intérieur de la colonne S est blanc (tous les autres sont d'autre couleurs)

Et coller l'ensemble des caractéristiques du titre (colonnes O à AF) sur une nouvelle page ("Feuil4") les uns en dessous des autres.

Et répéter la même opération pour les 24 pages du document. En collant toujours à la suite sur la même page.

Sub copie()
Dim FeuilleA As Worksheet, i As Integer, k, j As Integer
For i = 1 To 24
If i = 1 Then
Set FeuilleA = Feuil21
ElseIf i = 2 Then Set FeuilleA = Feuil20
ElseIf i = 3 Then Set FeuilleA = Feuil19
ElseIf i = 4 Then Set FeuilleA = Feuil22
ElseIf i = 5 Then Set FeuilleA = Feuil18
ElseIf i = 6 Then Set FeuilleA = Feuil17
ElseIf i = 7 Then Set FeuilleA = Feuil25
ElseIf i = 8 Then Set FeuilleA = Feuil24
ElseIf i = 9 Then Set FeuilleA = Feuil23
ElseIf i = 10 Then Set FeuilleA = Feuil16
ElseIf i = 11 Then Set FeuilleA = Feuil15
ElseIf i = 12 Then Set FeuilleA = Feuil14
ElseIf i = 13 Then Set FeuilleA = Feuil13
ElseIf i = 14 Then Set FeuilleA = Feuil12
ElseIf i = 15 Then Set FeuilleA = Feuil11
ElseIf i = 16 Then Set FeuilleA = Feuil10
ElseIf i = 17 Then Set FeuilleA = Feuil9
ElseIf i = 18 Then Set FeuilleA = Feuil8
ElseIf i = 19 Then Set FeuilleA = Feuil7
ElseIf i = 20 Then Set FeuilleA = Feuil6
ElseIf i = 21 Then Set FeuilleA = Feuil5
ElseIf i = 22 Then Set FeuilleA = Feuil4
ElseIf i = 23 Then Set FeuilleA = Feuil3
ElseIf i = 24 Then Set FeuilleA = Feuil2

End If

k = 6
j = 7
While IsEmpty(Range("S" & k)) = False
If Range("S" & k).Interior.ColorIndex = 2 Then
Range("O" & k & ":AF" & k).Select: Selection.Copy
Sheets("Feuil4").Range("A" & j).PasteSpecial Paste:=xlPasteValues
j = j + 1
End If
k = k + 1
Wend

Next i
End Sub

La macro marche pour une page mais pas quand j'essaie avec les autres.

Merci par avance !

Bonjour et bienvenu(e)

En ajoutant un petit fichier en expliquant ce que tu veux faire

Voilà ce que j'ai avant, voilà ce que je veux après