Bonjour,

Afin de supprimer des lignes dans une feuil1, j'excécute la macro suivante.

Malheureusement, lorsque je renomme mes deux feuilles avec des noms personnalisés, la macro plante avec un message d'erreur 424, objet requis.

Merci pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub DeleteRows()
    With Feuil2
        SRC = Application.Transpose(.Range("A1", .Cells(.Rows.Count, 1).End(xlUp)).Value)
    End With
 
    With Feuil1
        Application.ScreenUpdating = False
        AR = .Range("G1", .Cells(.Rows.Count, 7).End(xlUp)).Value
 
        For R& = UBound(AR) To 1 Step -1
            If AR(R, 1) > "" Then _
                If IsError(Application.Match(AR(R, 1), SRC, 0)) Then .Rows(R).Delete
        Next
 
        Application.ScreenUpdating = True
    End With
End Sub