bonjours

j'ai écrit un code mais il ne marche qu'a moitié et je ne sais pas pourquoi
normalement il devrait me supprimer des lignes dans deux feuilles mais il ne me le fait que sur une feuille. Je dois dire que ça m'embête un peu.

donc voilà le 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub suppession_doublons()
Dim plage, plagebis As Range
Dim derlig As Long
Dim lavaleur As Variant
Dim rg As Range
 
 
derlig = Range("A" & Rows.Count).End(xlUp).Row
Set plage = Range(Cells(1, 1), Cells(derlig, 5))
tableau = plage.Value
    For i = 1 To derlig
        For j = 2 To 5
            For Each sh In Worksheets(Array("EXP-DIF", "AAR", "RST"))
            If tableau(i, 2) = 1 Then
               If tableau(i, 3) = 1 Or tableau(i, 4) = 1 Then
                    lavaleur = tableau(i, 1)
                        If tableau(1, j) = sh.Name Then
                            sh.Select
                                Range("A:A").Select
                                For Each rg In Selection
                                    If rg = lavaleur Then
                                    rg.EntireRow.Delete
                                    End If
                                Next rg
                         End If
               End If
            End If
            Next sh
           Next j
    Next i
End Sub
je pense que c'est peut être dû à l'ordre des boucles mais je ne sais pas comment faire