comparaison de deux colonnes

Bonjour tout le monde,

j'ai une macro pour comparer deux colonnes dans deux feuilles differentes et me coller l'information dans une troisieme:
ws2.Select
Dim derligne1%, derligne2%
Dim i1%, i2%

derligne1 = ws3.Range("D65536").End(xlUp).Row
derligne2 = ws2.Range("p65536").End(xlUp).Row
For i2 = 1 To derligne2
For i1 = 14 To derligne1
If ws3.Range("D" & i1) = ws2.Range("p" & i2) Then
Exist = 1
GoTo Suivant
End If
Next
If Exist = 1 Then GoTo Suivant
ws3.Range("D" & derligne1 + 1) = ws2.Range("p" & i2)
derligne1 = ws3.Range("D65536").End(xlUp).Row
Suivant:
Exist = 0
Next

cette macro fonctionne tres bien, cependant elle compare de cellule identique hors j'aimerais qu'elle puisse considérer que si la cellule contient une partie de l'autre cellule c'est pareil.

Par exemple,
aujourd'hui il me fait

En col A en col B

AAA AAA
AAA1 AAA
AAA1 AAA
AAA2

donc en C il me met
AAA
AAA1
AAA2

je voudrais qu'il ne me mettent que AAA en C.
Est ce possible en faite de lui dire si B est dans A ou un truc comme ca.

Merci de vos lumieres