VBA Copier des lignes avec plusieurs conditions

Sub Trier()
Dim WsS As Worksheet, Wsc As Worksheet
Dim Cel As Range, C As Range
Dim firstAddress As String
Dim Decalage As Integer
    'la variable Wss représente la feuille source "Enfant"
    Set WsS = Worksheets("Enfant")
    'la variable WsC représente la feuille cible "Parents"
    Set Wsc = Worksheets("Parents")
    'Pour chaque nom dans la colonne A de la feuille "Parents"
    For Each Cel In Wsc.Range("A2:A" & Wsc.Range("A" & Rows.Count).End(xlUp).Row)
        'On recherche ce même nom dans la colonne A de la feuille "Enfant"
        Set C = WsS.Columns("A").Find(Cel.Value, LookIn:=xlValues, lookat:=xlWhole)
        'Si le nom est trouvé et que le prénom et l'age sont identiques à ceux de la feuille "Parents", alors ..
        If Not C Is Nothing And C.Offset(0, 1) = Cel.Offset(0, 1) And C.Offset(0, 2) = Cel.Offset(0, 2) Then
            'On mémorise l'emplacement du nom dans la feuille "Enfant" afin de ne pas boucler sur les mêmes emplacements.
            firstAddress = C.Address
            Do
                'On affecte la valeur des cellules de la plage D à G de la feuille "Enfant" _
                à la plage de 4 colonnes qui suit la dernière colonne renseignée dans la feuille "Parents"
                Cel.Offset(0, Cel.End(xlToRight).Column).Resize(, 4).Value = C.Offset(0, 3).Resize(, 4).Value
                'On poursuit la recherche
                Set C = WsS.Columns("A").FindNext(C)
                'On boucle tant que le même nom est trouvé et que l'emplacement est différent
            Loop While Not C Is Nothing And C.Address <> firstAddress
        End If
    Next Cel
    Wsc.Activate
    Set C = Nothing: Set Wsc = Nothing: Set WsS = Nothing
End Sub

If Not C Is Nothing And C.Offset(0, 1) = Cel.Offset(0, 1) And C.Offset(0, 2) = Cel.Offset(0, 2) Then

Cel.Offset(0, Cel.End(xlToRight).Column).Resize(, 4).Value = C.Offset(0, 3).Resize(, 4).Value