Supprimer ligne en noir

[noha]

bonjour,
je cherche à supprimer les lignes qui possèdent des cellules écrits en noir
Voilà mon programme:
Dim Cel_en_Cours As Range, Test As Boolean, Range_Test As Range
Test = False
On Error GoTo Gere_Erreurs
Set Range_Test = Range('A1').SpecialCells(xlCellTypeConstants, 23)
On Error GoTo 0
If Test = False Then
For Each Cel_en_Cours In Range('A1').SpecialCells(xlCellTypeConstants, 23)
If Cel_en_Cours.RowHeight > 0 Then
If Cel_en_Cours.Font.ColorIndex = 0 Then
Cel_en_Cours.MergeArea.EntireRow.RowHeight = 0
End If
End If
Next Cel_en_Cours
End If
Test = False
On Error GoTo Gere_Erreurs
Set Range_Test = Range('A1').SpecialCells(xlCellTypeFormulas, 23)
On Error GoTo 0
If Test = False Then
For Each Cel_en_Cours In Range('A1').SpecialCells(xlCellTypeFormulas, 23)
If Cel_en_Cours.RowHeight > 0 Then
If Cel_en_Cours.Font.ColorIndex = 0 Then
Cel_en_Cours.MergeArea.EntireRow.RowHeight = 0
End If
End If
Next Cel_en_Cours
End If
Exit Sub
Gere_Erreurs:
Test = True
Resume Next
End Sub


Merci d'avance