Sub a()
Dim p As Range
Set p = Range([A1], [A65536].End(xlUp)) 'ici définit la plage de cellules utiles de la colonne A
Application.ScreenUpdating = False
With p.Offset(, 255) 'insére la formule en colonne IV (car test fait sur PC avec XL2003)
.FormulaR1C1 = "=IF(MOD(ROW(),2)=0,1,"""")" ' la formule en question
.Value = .Value ' simule le copie/colle -> Valeurs seules
.SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
' utilise SpecialCells pour sélectionner les lignes avec un valeur numérique
'en colonne IV et supprime ces lignes
End With
End Sub