Recherche de mots dans une liste

Bonjour,

Alors voila j'ai une liste de mots dans ma feuille 1 et des phrases dans ma feuille 2.
Mon code VBA me permet de mettre les mots correspondants de la liste à la colonne 4. Cependant, j'aimerais faire une autre liste avec d'autres mots et dès qu'il les trouve il me les affiche dans la colonne à droite de la première.
Je sais pas si j'ai été clair je vous montre mon code :

Sub Cherche()
Dim Cel As Range
Dim Depart As String
Dim J As Long
Dim Colonne As Integer

  For J = 1 To Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
    Set Cel = Columns("B").Find(what:=Sheets("Feuil1").Range("A" & J), LookIn:=xlValues, lookat:=xlPart)
    If Not Cel Is Nothing Then
      Colonne = 4
      Depart = Cel.Address
      Do
        Cells(Cel.Row, Colonne) = Sheets("Feuil1").Range("A" & J)
        Colonne = Colonne + 1
        Set Cel = Columns("B").FindNext(Cel)
      Loop While Not Cel Is Nothing And Depart <> Cel.Address
    End If
  Next J
End Sub