Coucou encore moi,

Ca devrai pas etre compliquer cette fois, j'ai une formule:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
If Range("A1").Value = "0" Then
Range ("A1").Entirerow.Hidden=true
Else
Range("A1").EntireRow.Hidden=False
End iF
En gros je voudrais que cette action se repete sur A2,A3,A4,A5... sans avoir a rettaper 10 fois la formule.

J ai essayer en mettant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
If Range("A1,A2,A3,A4,A5").Value = "0" Then
Range ("A1,A2,A3,A4,A5").Entirerow.Hidden=true
Else
Range("A1,A2,A3,A4,A5").EntireRow.Hidden=False
End iF

Seulement il me cache aussi les cases avec ne valeur differente de 0

Merci