Effacer des lignes sur VBA

bonsoir

Je débute en vba et je souhaite faire tourner une macro qui supprim les lignes dont les cellules contient des nombres a virgules.

J'ai essayé ce qui suit mais rien ne se passe:

Sub suppr()

Dim i As Integer

For i = 1 To 25

If Cells(i, 1) = "***.5" Then

Rows(i).Delete

i = i - 1

End If

End Sub

je précise que le tableau contient 55734 cellules, donc difficiles d'effacer une a une.

Merci par avance pour vous réponse

Amine.

bonjour,

Tu peux essayer quelque chose comme ça :

Sub suppr()
For i = 25 To 1 Step -1
If Not Cells(i, 1) = Int(Cells(i, 1)) Then Rows(i).Delete
Next
End Sub

A+

merci, sa marche