aide sur le debugage d'un code !

Bonjour all

J'ai fait un petit code qui doit regarder le vauleur de mes cellule C, D, E, F, G & H. Si elles sont à 0, alors il faut effacer la ligne

Seulement j'ai un bug ! Erreur de compilation, incompatibilité de type.

Merci de votre aide, je pense que cela vient du dim Ligne mais j'ai pas la solution.

++

Creepy
---------

Dim ligne As Range
Dim l2 As Integer
Dim L1 As Integer
L1 = 4
l2 = Range("a4").End(xlDown).Row
For ligne = Range("A4") To Range("a:" & l2)
If Range("C:" & L1).Value = 0 And Range("D:" & L1).Value = 0 And Range("E:" & L1).Value = 0 _
And Range("F:" & L1).Value = 0 And Range("G:" & L1).Value = 0 And Range("H:" & L1).Value = 0 Then
Rows(L1 & ":" & L1).Select
Selection.Delete Shift:=xlUp
L1 = L1 + 1