Recherche d'une ligne et éffacement

Bonjour,

Je désir créer un code qui lorsqu'il détecte une ligne non vide la supprime voici un code que j'utilise mais Excel donne une erreur d'execution '9' :

Sub Supp_Ligne()

Worksheets("Donnees du NDS").Range("A1").Select

'Sélection de la cellule de départ avec décalage sur les lignes(Offset(1,0))

Do Until ActiveCell <> 0

If ActiveCell <> "" Then

Selection.EntireRow.Clear

End If

ActiveCell.Offset(1, 0).Range("A1").Select

Loop

Range("A1").Select

End sub

Je pense que ma syntaxe est mauvaise sinon j'avais aussi pour idée de faire

Sub Supp_ligne()

For i = 1 to 10000

If Worksheets("Donnees du NDS").Range("A1") <> 0 Then

Selection.EntireRow.Clear

End if

Next

End sub

Encore une fois erreur '9'.

Si vous avez des corrections, des idées elles sont les bienvenues !

Merci.

Bonjour,

Tu veux supprimer ou effacer les lignes ?

précise ce point

Amicalement

Claude