Si dans une plage alors copier le résultat dans une autre feuille

ettre le classeur sans données confidentielles en pièce jointe sur 
 https://mon-partage.fr
Dans lien de téléchargement
 faire un clic  droit- copier l’adresse du lien   et  le coller dans votre message en cours sur ccm 

Option Explicit
Option Base 1
'-------------------------------------------------
Sub Copier_si_01()
Dim Derlig As Byte, T_in, Cptr1 As Byte
Dim T_out, Cptr2 As Byte, Col As Byte

'------------feuille1
    Derlig = Columns("C").Find(what:="*", searchdirection:=xlPrevious).Row
    T_in = Sheets(1).Range("C22:C" & Derlig) 'mémorisation en Ram des données à tester
    ReDim T_out(129, 1) 'config variable-tableau résultats
    '--------------Action
    For Cptr1 = 1 To UBound(T_in)
        On Error GoTo 1  '01" absent en 3-4
         If Application.Search("01", T_in(Cptr1, 1)) = 3 Then 'valide si "01" en position 3 et 4
            Cptr2 = Cptr2 + 1
            T_out(Cptr2, 1) = T_in(Cptr1, 1) 'mémorisation en Ram données valides
        End If
1:
    Next
    
'-----------feuille2
    With Sheets(2)
        'localisation colonne restitution
        If .Range("Z30") = "" Then
            Col = 26
        Else
            Col = .Rows(30).Find(what:="*", searchdirection:=xlPrevious).Column + 1
        'restitution
         End If
         'restitution
        .Cells(30, Col).Resize(129, 1) = T_out
        'encadrements
         .Cells(30, Col).Resize(129, 1).Borders.Weight = xlThin
       'présentation
        .Activate
    End With
End Sub
]