bonjour j'utilise ce code
For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
If Cells(i, 1).Value = [e1] Then Cells(i, 1).EntireRow.Delete
Next
cette formule m'efface les lignes si elle contient la meme date que la cellule E1
comment faire pour que au lieu de parcourrir toute les lignes 'next'
le code parcour que 8000 ligne (par exemple)
Julie
For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
If Cells(i, 1).Value = [e1] Then Cells(i, 1).EntireRow.Delete
Next
cette formule m'efface les lignes si elle contient la meme date que la cellule E1
comment faire pour que au lieu de parcourrir toute les lignes 'next'
le code parcour que 8000 ligne (par exemple)
Julie