Bonjour,

j'ai écrit une petite macro (ma première !) pour supprimer les lignes dans une feuille excel 2016 ayant un X en colonne AN (39)

ma macro marche très bien mais il faut plus de 7 minutes pour qu'elle s'exécute, il y a 5000 lignes mais cela me semble très long, y-a-t-il un moyen de faire mieux ?
Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub supprlineam()
Dim i As Integer
For i = 5000 To 1 Step -1
If Cells(i, 39).Value = "X" Then
Cells(i, 39).EntireRow.Delete
End If
Next i
End Sub