Incompabilité de Type

J'ai fait 2 Sub différents (ci-dessous) , Mais quand je lance Sub Elimine_0() , ca m'affiche Incompatibilité de Type.
Comment Puis-je remédier à ce problème ?


Sub Synthese()
Sheets("Mise en Avant").Select
Range("A4").Select

formuleA = "=SI('Trame Stock'!D4>'Trame Stock'!H4;'Trame Stock'!A4;0)"
formuleB = "=SI('Trame Stock'!D4>'Trame Stock'!H4;'Trame Stock'!B4;0)"
formuleC = "=SI('Trame Stock'!D4>'Trame Stock'!H4;'Trame Stock'!D4-'Trame Stock'!H4;0)"
formuleE = "=C4/B4"

Range("A4").FormulaLocal = formuleA
Range("B4").FormulaLocal = formuleB
Range("C4").FormulaLocal = formuleC
Range("E4").FormulaLocal = formuleE

Range("A4:C159").FillDown
Range("E4:E159").FillDown

End Sub
Option Explicit

Sub Elimine_0()
Dim Lig%
Application.ScreenUpdating = 0

For Lig = [A65536].End(xlUp).Row To 1 Step -1
If Range("A" & Lig).Value = "0" Then Rows(Lig).Delete
Next
End Sub

Merci