Copie Ligne suivant couleur texte

Sub test()
MsgBox Selection.Font.ColorIndex
End Sub

Sub test2()
Dim I As Integer
I = 1
While Cells(I, 1) <> ""
If Cells(I, 1).Font.ColorIndex = 1 Then
    Cells(I, 1).Copy Cells(I, 2)
End If
I = I + 1
Wend
End Sub

Sub test2()
Dim I As Integer, J As Integer
I = 2
J = 1
With Sheets("Data")
While .Cells(I, 1) <> ""
If .Cells(I, 1).Font.ColorIndex = -4105 Then
    .Cells(I, 1).Copy Sheets("Data-Globale").Cells(J, 1)
    J = J + 1
End If
I = I + 1
Wend
End With
End Sub

Sub test3()
Dim Feuille As Worksheet, NomFeuille As String, FeuilleATraiter As Worksheet
Dim I As Integer, J As Integer
Recommencer:
NomFeuille = InputBox("Onglet à traiter ?", "Synthèse des données")
If NomFeuille = "Data-Globale" Then GoTo Recommencer
For Each Feuille In ThisWorkbook.Worksheets
If Feuille.Name = NomFeuille Then Set FeuilleATraiter = Feuille
Next
If FeuilleATraiter Is Nothing Then GoTo Recommencer
I = 2
J = Sheets("Data-Globale").Cells(65536, 1).End(xlUp).Row + 1
With FeuilleATraiter
While .Cells(I, 1) <> ""
If .Cells(I, 1).Font.ColorIndex = -4105 Then
    .Cells(I, 1).Copy Sheets("Data-Globale").Cells(J, 1)
    J = J + 1
End If
I = I + 1
Wend
End With
End Sub

If .Cells(I, 1).Font.ColorIndex = -4105[COLOR=red][B] [COLOR=red]Or [/COLOR][/B][/COLOR][COLOR=#000000][B][COLOR=red].Cells(I, 1).Font.ColorIndex = 1[/COLOR][/B] Then[/COLOR]

Sub btnOK 
Me.Hide
FrmInterface.Hide
Dim a As Integer
Dim J As Integer

Application.ScreenUpdating = False
For i = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(i) = True Then
Application.StatusBar = "Exportation: " & LbFeuilles.List(i)
Application.DisplayAlerts = False

With Sheets(LbFeuilles.List(i)).Select
a = 2
J = 2 'Ligne 2
While .Cells(a, 1) <> ""
If .Cells(a, 1).Font.ColorIndex = 1 Then
    .Cells(a, 1).Copy Sheets("Data-Globale").Cells(J, 4) 'Colonne B
    J = J + 1
End If
a = a + 1
Wend
End With
'Sheets(LbFeuilles.List(i)).PrintPreview
Else
End If
Next i
Unload Me
'FrmInterface.Hide
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub

With Sheets(LbFeuilles.List(i)).Select

With Sheets(LbFeuilles.List(i))

Sheets(LbFeuilles.List(i)).Select