Bonjour, pouvez vous me dire pourquoi ce prog. ne fonctionne pas ??
Dim formules As Range
Dim cellule As Range
On Error Resume Next
Activate.SpecialCells (xlCellTypeFormulas)
Set formules =.SpecialCells(xlFormulas)
For Each cellule In formules
If cellule.Value = 0 Then
ActiveCell.EntireRow.Delete
End If
Next cellule
End Sub
---------------
Rien ne se perd, rien ne se crée, tout se transforme !!
