Création d'un tableau à partir d'un tableau existant

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim Plage As Range
    Dim Cel As Range
    
    'si on est en colonne A
    If Target.Column = 1 Then
        
        'la plage de code pour la récupération de la ligne correspondante au code
        'entré en cellule de la colonne A se trouve en feuille "Feuil1" (à adapter)
        With Worksheets("Feuil1")
 
            Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)) 'de A1 à Ax
        
        End With
        
        'effectue la recherche du code
        Set Cel = Plage.Find(Target.Value, , xlValues, xlWhole)
        
        'si trouvé bloque les évènements, copy la ligne entrière
        'et la colle dans la ligne de Target puis rétabli les évènements
        If Not Cel Is Nothing Then
            
            Application.EnableEvents = False
            
            Cel.EntireRow.Copy Target
            
            Application.EnableEvents = True
            
        End If
        
    End If
    
End Sub