Salut Julien et Steph,
Merci beaucoup Steph d'avoir signalé à notre ami Julien de faire un tour par la charte d'XLD.
En effet Julien, mettre URGENT dans ton sujet n'aura jamais aucun effet positif dans aucun forum. Non pas que celà soit impoli particulièrement, c'est surtout une interpellation agressive des lecteurs, qui probablement n'ouvriront même pas le post en question.
Tu sais on en a vu des post TOP EXTREME URGENT/ IMPORTANT / Etc... Et en prime, bien souvent, ces gens là, une fois leur réponse obtenue, disparaissent sans un simple petit mot de remerciement... Probablement trop pressé !! lol
Bon enfin vu que tu as l'air de ne pas faire partie de ces gens là, Julien, voici une méthode parmis d'autres :
Sub Delete_1_Ligne_sur_2()
Dim i As Integer
For i = 1 To Sheets("Feuil1").Range("A65535").End(xlUp).Row Step 2
Range("A" & i).Clear
Next i
Sheets("Feuil1").Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Attention, ce code détruira une ligne sur deux à compter de la ligne un de ta feuille "Feuil1". Si par exemple tu dois démarrer par la destruction de la ligne 2...
C'est ici qu'il faut changer :
For i =
2 To Sheets("Feuil1").
Par ailleurs cette macro sous-entends que ton tableau démarre en colonne "A", sinon il faut l'adapter.
Pour Steph par contre, je pense que tu as été un peu succinct dans ton copié collé de code car les deux lignes ci-dessus me paraissent assez vagues...(C1 & IntNumLigne ?? comment sont initialisées ces variable ??)
Bon Aprèm
@+Thierry
(rédacteur de la Charte du Forum