Bonjour,

Je fais une macro toute simple sur EXCEL 2003 (enfin je pensais) et voilà qu'on m'affiche des erreurs 1004. Ma petite macro compare la valeur d'une cellule avec la valeur de la cellule se trouvant à la ligne d'avant. Si la valeur est la même, la ligne précédente est supprimée entièrement. Voilà mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
 
 
Sub trier()
Dim I, J, K As Integer
 
Worksheets(2).Select
For I = 2 To 7128
    If Cells(2, I + 1) = Cells(2, I) Then
        Cells(2, I).EntireRow.Delete
    End If
Next I
End Sub
L'erreur vient apparament de la condition if.

Merci de votre aide.