VBA excel

Bonjour,
Pouvez vous m'aider j'ai un soucis

un tableau excel avc un nombre de lignes non définis dans lequel je recherche la valeur absent
si la valeur est trouvée
alors il faut ecrire 0 dans les cellules et mettre du rouge

masi mon code ne marche pas
je ne trouve pas mon erreur et je ne suis pas très doué
merci à ttes les réponses


Dim Ligne As Integer

For Ligne = 1 To 30

If Cells(Ligne, 14).Value = "absent" Then 'tester la colonne 14 sur mot absent
Cells(Ligne, 4).Value = ""
Cells(Ligne, 6).Value = ""
Cells(Ligne, 7).Value = ""
Cells(Ligne, 8).Value = ""
Cells(Ligne, 9).Value = ""
Cells(Ligne, 10).Value = ""
Cells(Ligne, 16).Value = 0
Cells(Ligne, 17).Value = 0
Cells(Ligne, 22).Value = 0
Cells(Ligne, 23).Value = 0
Cells(Ligne, 25).Value = 0
End If
'Mise en forme conditionnelle des lignes des absents : mettre en rouge les valeurs 0

If Cells(Ligne, 14).Value = "absent" Then 'tester la colonne 14 sur absent
Selection.Format
Conditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="0"
Selection.FormatConditions(1).Font.ColorIndex = 3

End If
'Next Ligne
End Sub