Concatenation sous condition

Bonjour,

j'ai besion d'aide sur la concatenation.
Alors j'ai un classeur excel contenant deux feuill : Feuil1 et Feuil2

dans Feuil1 j'ai: dans Feuil2 j'ai:

colone A Colone A

Jean S999999
martin S999998
fidel S999997
christ
aaa
aaa
dkl
elk
alom
aaop S999990

j'aimerais que par une boucle lorsque l'on parcoure la colone A de la Feui1 si la valeur de la cellule commence par aa alors on concaténe la premiere valeur trouver avec le premier matricule ainsi de suite on auras comme resultat:

jean
martin
fidel
christ
aaa S999999
aaaS999998
dkl
elk
alom
aaopS999997

ce resulta seras a la meme place c'est a dire colone A Feuil1

voicie mon bout de code
il cherche bien les valeur commence par aaa mais je n'arrive pas a concaténé.

Sub tes()

Dim i As Integer

Limite = Range("A65536").End(xlUp).Row

For i = 1 To Limite

If Left(Cells(i, 1).Value, 3) = "aaa" Then

Sheets("Feuil2").Cells(i, 1).Copy

End If

Next i

End Sub