Bonjour j'ai une lenteur inimagnable (5 seconde) avec ce code, quelqu'un voit l'erreur par pur hasard ?

' Fonction qui change des que tu change la colonne
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
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 
Dim iENT As Integer
Dim iRET As Integer
Dim ENT As Worksheet
Dim RET As Worksheet
 
Set ENT = Worksheets("ENT_BET")
Set RET = Worksheets("Retenue")
 
 
    ' NETOYER LA PLAGE RETENUE
    Worksheets("Retenue").Range("A3:G150").Clear
    ' NETOYER LA PLAGE AMT
    If Target.Column = 6 Then
        iRET = 3
        iENT = 3
        While ENT.Cells(iENT, 6).Value <> ""
 
 
            If ENT.Cells(iENT, 6).Value = "Oui" Then
                 'Copier dans retenue
                ENT.Range(iENT & ":" & iENT).Copy RET.Cells(iRET, 1)
                iRET = iRET + 1
 
                 'TODO Copier dans AMT
 
 
            End If
            'Copi
            iENT = iENT + 1
        Wend
 
        Application.CutCopyMode = False
 
 
  End If
    Application.EnableEvents = True
End Sub