Sub Si_zero()
Dim x As Variant
For Each x In Range("A1:A" & Range("A65536").End(xlUp).Row)
If x = "0" Then
x.Value = "Pas de débit"
'***************************************************************
'Si tu veux y mettre dans une autre colonne, par ex. Colonne D
'x.Offset(0, 3).Value = "Pas de débit"
'***************************************************************
End If
Next
End Sub