bonjour

j'ai un probleme
pour supprimer les doublons dans 5 feuilles je dois réiterer 5 fois 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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub dedoub()
 
Application.ScreenUpdating = False
Dim LastLig As Long, i As Long
 
 
With Sheets("PCH")
    LastLig = .Cells(.Rows.Count, "AF").End(xlUp).Row
    For i = LastLig To 2 Step -1
 
        If Application.CountIf(.Range("AF1:AF" & LastLig), .Range("AF" & i)) > 1 Then
            .Rows(i).Delete
            LastLig = LastLig - 1
        End If
    Next i
End With
 
With Sheets("EXP DIF")
    LastLig = .Cells(.Rows.Count, "AF").End(xlUp).Row
    For i = LastLig To 2 Step -1
        If Application.CountIf(.Range("AF1:AF" & LastLig), .Range("AF" & i)) > 1 Then
            .Rows(i).Delete
            LastLig = LastLig - 1
        End If
    Next i
End With
 
With Sheets("RST")
    LastLig = .Cells(.Rows.Count, "AF").End(xlUp).Row
    For i = LastLig To 2 Step -1
        If Application.CountIf(.Range("AF1:AF" & LastLig), .Range("AF" & i)) > 1 Then
            .Rows(i).Delete
            LastLig = LastLig - 1
        End If
    Next i
End With
 
With Sheets("AAR")
    LastLig = .Cells(.Rows.Count, "AF").End(xlUp).Row
    For i = LastLig To 2 Step -1
        If Application.CountIf(.Range("AF1:AF" & LastLig), .Range("AF" & i)) > 1 Then
            .Rows(i).Delete
            LastLig = LastLig - 1
        End If
    Next i
End With
 
With Sheets("AAR35")
    LastLig = .Cells(.Rows.Count, "AF").End(xlUp).Row
    For i = LastLig To 2 Step -1
        If Application.CountIf(.Range("AF1:AF" & LastLig), .Range("AF" & i)) > 1 Then
            .Rows(i).Delete
            LastLig = LastLig - 1
        End If
    Next i
End With
End Sub

à chaque fois je dois réecris le traitement pour chaques feuilles

j'aimerai écrire une procédure qui fait appel aux 5 feuilles d'un coup allégeant ainsi la procédure en d'autre terme ecrire le traitement en une seule fois

NB: chaque feuilles n'a pas le même nombre de lignes pleines

voila merci d'avance


j'aimerais faire un traitement qui fait appel