Supprimer 4 lignes sur 5 dans Excel (VBA)

[invite639d22c6]

Bonjour,
je souhaiterai supprimer 4 lignes sur 5 dans un fichier excel de plusieurs colonnes et plusieurs milliers de lignes. (toute la ligne doit partir, pour toutes les colonnes hein).
En gros j'ai ça :

A B C ...
1
2
3
...

Et j'aimerai ça :

A B C ...
1
6
11
16
...

Je n'y connais strictement rien en VBA alors je m'en remets à vous.
Un grand merci d'avance !!

PS : j'ai gribouillé ça mais ça efface absolument tout mon fichier :

 Sub Delete_Every_Other_Row() 

   For I = 0 To (Selection.Rows.Count -1) 
       If I Mod (5) <> 1 Then 
           ' ...delete an entire row of cells. 
           Selection.Rows.EntireRow.Delete 
       End If 
   Next I 

End Sub

-----

[bzh_nicolas]

Le problème vient de cette ligne je pense : Selection.Rows.EntireRow.Delet e

Tu ne resélectionne pas la ligne à effacer.
Voilà comment je vois le code. A relire et tester, je l'ai fait de tête.

Sub Delete_Every_Other_Row()

For I = 1 To Worksheets("NomDeTaFeuille").Rows.Count
  'recuperation du nombre de ligne à traiter
  'pas besoin de Sélectionner comme ça
  'tu pars de 1 car la première ligne est numéroté 1 sur excel
  If I Mod (5) <> 1 Then
    ' ...delete an entire row of cells.
    Worksheet("NomDeTaFeuille").Rows(I).Delete
  End If
Next I

End Sub

[mécano41]

Bonjour,

Voici une solution...

Cordialement