prb boucle & format ligne

Bonjour à tous,

J’ai une macro qui me cause des soucis, mon problème est le suivant :
J’ai un tableau qui peut-être variable en nombre de lignes, dans la colonne C la valeur peut varier entre 1 et 0. Si la valeur est égale à 1 les colonnes E :F et I :K de la même ligne doivent avoir une certaine mise en forme (hachure) et si la valeur est égale à 0 les colonnes E :F et I :K de la même ligne doivent avoir une autre mise en forme (couleur verte).
Ce test doit-être réalisé sur toutes les lignes du tableau.
J’ai pensé faire une boucle, j’ai commencé une macro mais je n’arrive à rien de concret, quelqu’un pourrais t’il m’orienté vers la solution.
Merci

Ci –dessous le début de ma macro

Sub CouleurCol()
'
' CouleurCol
'
Range("C1").Select
Selection.End(xlDown).Select
Derligne = ActiveCell.Row
Range("C1").Select
For compteur = 1 To Derligne

If ActiveCell.Value = 1 Then
Range("E" & Derligne & ":F" & Derligne).Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlLightUp
.PatternColorIndex = xlAutomatic

Range("I" & Derligne & ":K" & Derligne).Select
With Selection.Interior
.ColorIndex = 0
'.Pattern = xlLightUp
'.PatternColorIndex = xlAutomatic
End With

Else
With Selection.Interior 'Couleur texte
.ColorIndex = 35
.Pattern = xlSolid
End With
End If

ActiveCell.Offset(1, 0).Range("C1").Select

Next

End Sub