copier/coller des cellules dans un tableau dans une autre feuille sous conditions

Sub test()

nb = [I65536].End(xlUp).Row
Set ZoneTest = Sheets("fichier de suivi").Range("I7:I" & nb)
ZoneTest.Select

For Each ele In ZoneTest
    If ele = "CONTRÔLE EN RETARD" Then
        Range("A" & ele.Row).Copy Destination:=Sheets("feuille de controle").Range("A65536").End(xlUp).Offset(1, 0)
        Range("F" & ele.Row).Copy Destination:=Sheets("feuille de controle").Range("B65536").End(xlUp).Offset(1, 0)
        
    End If
Next ele

End Sub

Private Sub CBValider_Click()
Application.EnableEvents = False
Application.ScreenUpdating = False
'effacage des données déjà présentes dans l'onglet "feuille de  contrôle"
Sheets("feuille de controle").Range("A9:B" & Sheets("feuille de controle").Range("A65536").End(xlUp).Offset(1, 0).Row).ClearContents

'demande à l'utilisateur de choisir l'intitulé à reporter
choix = Me.LBChoix.Value
Unload Me

ActiveSheet.Outline.ShowLevels RowLevels:=1
'recherche de la position de l'intitulé pour pouvoir sélectionner toutes les data afférentes.
With ActiveSheet.Range("A4:A65536")
    Set c = .Find(choix, LookIn:=xlFormulas)
    'nb = NomZone.Row
    If Not c Is Nothing Then
        debut = c.Row
        ActiveSheet.Outline.ShowLevels RowLevels:=2
        fin = c.End(xlDown).Row
    End If
End With
Set ZoneTest = Sheets("fichier de suivi").Range("I" & debut & ":I" & fin)

'parcours de la colonne I et test du contenu
For Each ele In ZoneTest
    If ele = "CONTRÔLE EN RETARD" Then
        'copie de la colonne A vers la colonne A
        Range("A" & ele.Row).Copy Destination:=Sheets("feuille de controle").Range("A65536").End(xlUp).Offset(1, 0)
        'copie de la colonne F vers la colonne B
        Range("F" & ele.Row).Copy Destination:=Sheets("feuille de controle").Range("B65536").End(xlUp).Offset(1, 0)
        
    End If
Next ele
Application.EnableEvents = True
Application.ScreenUpdating = True
ActiveSheet.Outline.ShowLevels RowLevels:=1


End Sub

Sub ListerEchelles()
'effacage des données déjà présentes dans l'onglet "feuille de  contrôle"
Sheets("liste des échelles").Range("A3:D" & Sheets("liste des échelles").Range("A65536").End(xlUp).Offset(1, 0).Row).ClearContents
Application.EnableEvents = False


'Dernière ligne de la feuille "Fichier de suivi"
Fin = Sheets("fichier de suivi").Range("A65536").End(xlUp).Row

ActiveSheet.Outline.ShowLevels RowLevels:=2
'parcours de TOUTES les lignes... très long..


For I = 5 To Fin
    If Rows(I).Hidden = False And Range("A" & I) <> "" Then
        'si c'est un numéro d'échelle
        If IsNumeric(Range("A" & I)) Then
            'recopie du numéro, de son groupe associé, de son type et de sa validité
            Range("A" & I).Copy Destination:=Sheets("liste des échelles").Range("A65536").End(xlUp).Offset(1, 0)
            Sheets("liste des échelles").Range("B65536").End(xlUp).Offset(1, 0) = NomGroupe
        'si ce n'est ni un numéro ni le texte "N° échelle": c'est donc un nom de groupe
        ElseIf (Range("A" & I) <> "N° échelle") Then
            NomGroupe = Range("A" & I)
        End If
    End If
Next I

'application de la formule dans la colonne C et D pour récupérer l'état
formuleC = "=INDEX('fichier de suivi'!B:B;EQUIV(A3;'fichier de suivi'!A:A;0))"
formuleD = "=INDEX('fichier de suivi'!I:I;EQUIV(A3;'fichier de suivi'!A:A;0))"

Sheets("liste des échelles").Activate
Sheets("liste des échelles").Range("C3").FormulaLocal = formuleC
Sheets("liste des échelles").Range("D3").FormulaLocal = formuleD
finzonetri = Range("A65536").End(xlUp).Row
Range("C3:D3").Select
Selection.AutoFill Destination:=Range("C" & 3 & ":D" & finzonetri)


'tri en ordre croissant
 
    Range("A3").Select
    ActiveWorkbook.Worksheets("liste des échelles").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("liste des échelles").Sort.SortFields.Add Key:= _
        Range("A3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("liste des échelles").Sort
        .SetRange Range("A3:D" & finzonetri)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Application.EnableEvents = True

End Sub