Bonjour à tous,

Voilà ce que je voudrais faire :
Dans un fichier contenant des colonnes (de nombres) de taille différentes, j'aurais besoin d'éliminer disons 2/3 d'une colonne en particulier (passer de 60000 à 20000 lignes)
Je ne connais presque rien à VB, mais j'avais trouvé la solution la plus évidente :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub Régime
For compteur = 1 To 20000
Selection.Offset(1,0).Select
Selection.Delete
Selection.Delete
Next
End Sub
Et ça marche ... mais ça prend 2 heures, même en désactivant la mise à jour de l'écran. Quelqu'un pourrait m'indiquer une solution plus élégante et moins comsomatrice de temps ?

Merci d'avance