Voila ma question est simple, j'ai écris ce premier 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
Sub Bouton1_Cliquer()
    
    Sheets("Data").Range("A4:S1000").Copy Destination:=Sheets("Trie Pareto").Range("A2")

    Sheets("Trie Pareto").Select
    For i = 1100 To 2 Step -1
    If Sheets("Trie Pareto").Range("D" & i).Value <> "Curative urgente" Then Rows(i).Delete
    Next i
    
    Dim M As Integer
    Dim L As Integer

    For L = 2 To Range("C2").End(xlDown).Row
    If Sheets("Trie Pareto").Cells(L, 3).Value <> "" Then
    M = L
    End If
    Next L
    
    Sheets("Trie Pareto").Range("C2:C" & L).Copy Destination:=Sheets("Calcul Pareto").Range("C2")
    Sheets("Trie Pareto").Range("E2:E" & L).Copy Destination:=Sheets("Calcul Pareto").Range("D2")
    Sheets("Trie Pareto").Range("I2:I" & L).Copy Destination:=Sheets("Calcul Pareto").Range("E2")
    Sheets("Trie Pareto").Range("J2:J" & L).Copy Destination:=Sheets("Calcul Pareto").Range("F2")
    Sheets("Trie Pareto").Range("Q2:Q" & L).Copy Destination:=Sheets("Calcul Pareto").Range("G2")
    
    Sheets("Calcul Pareto").Select
    
End Sub
Puis après j'ai modifié le code car la fonction en rouge dans le premier code étais super longue et j'ai donc fais ce code la :

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 Bouton1_Cliquer()
    
    Sheets("Data").Range("A4:S1000").Copy Destination:=Sheets("Trie Pareto").Range("A4")
    
    Sheets("Trie Pareto").Range("A1").Value = "Type de maintenance"
    Sheets("Trie Pareto").Range("A2").Value = "Curative urgente"

    Sheets("Trie Pareto").Range("A3:S1000").AdvancedFilter _
    Action:=xlFilterCopy, _
    CriteriaRange:=Sheets("Trie Pareto").Range("A1:A2"), _
    CopyToRange:=Sheets("Trie Pareto").Range("U3:AM3"), _
    Unique:=False

    Dim y As Integer
    Dim h As Integer

    For h = 4 To Range("W4").End(xlDown).Row
    If Sheets("Trie Pareto").Cells(h, 23).Value <> "" Then
    y = h
    End If
    Next h
    
    Sheets("Trie Pareto").Range("W4:W" & y).Copy Destination:=Sheets("Calcul Pareto").Range("C2")
    Sheets("Trie Pareto").Range("X4:X" & y).Copy Destination:=Sheets("Calcul Pareto").Range("D2")
    Sheets("Trie Pareto").Range("AC4:AC" & y).Copy Destination:=Sheets("Calcul Pareto").Range("E2")
    Sheets("Trie Pareto").Range("AD4:AD" & y).Copy Destination:=Sheets("Calcul Pareto").Range("F2")
    Sheets("Trie Pareto").Range("AK4:AK" & y).Copy Destination:=Sheets("Calcul Pareto").Range("G2")
    
    Sheets("Calcul Pareto").Select
    
End Sub
Or maintenant les lignes de code en bleu déconnent alors que celle du premier code fonctionnaient. Et je ne comprend pas pourquoi.
Merci de votre aide.