Bonjour à tous

Je sollicite votre aide pour comparer 2 listes et faire une action si une valeur est présente dans les 2 listes.

J'ai:
Dans la feuille 1: La liste des tâches présentes dans une notice d'utilisation
Dans la feuille 2: Les tâches associées à une personne (liste PERSONNEL)


Je voudrais comparer ces 2 listes et si une tâche est présente dans la liste NOTICE et dans la liste PERSONNEL, ajouter dans la feuille3 la notice en face de la personne concernée


J'ai essayer de comparer les 2 listes "Notice de la machine 1" et la 1ère personne "DUPONT" mais sans succès...

Voici le code que j'ai écrit:
Public Sub Start()

Dim CompteurColonneFeuille1
Dim CompteurColonneFeuille2
Dim NomFeuille1
Dim ContenuCaseFeuille1 'Contenu d une case

NomFeuille1 = "Feuil1"
NomFeuille2 = "Feuil2"
NomFeuille3 = "Feuil3"

LigneAScruterFeuille1 = 2
LigneAScruterFeuille2 = 1


CompteurColonneFeuille1 = 3


Do
L = Sheets(NomFeuille3).Cells(1, Cells.Columns.Count).End(xlToLeft).Column + 1 'Permet de se positionner sur la dernière colonne de tableau NON VIDE
Sheets(NomFeuille1).Select
ContenuCaseFeuille1 = Cells(LigneAScruterFeuille1, CompteurColonneFeuille1).FormulaR1C1

Sheets(NomFeuille2).Select
CompteurColonneFeuille2 = 3
Do
ContenuCaseFeuille2 = Cells(LigneAScruterFeuille2, CompteurColonneFeuille2).FormulaR1C1
If ContenuCaseFeuille1 = ContenuCaseFeuille2 Then

Sheets(NomFeuille3).Cells(1, L).Value = Worksheets(NomFeuille1).Range("B2").Value


Exit Do
End If

CompteurColonneFeuille2 = CompteurColonneFeuille2 + 1


Loop While Len(ContenuCaseFeuille2) > 0


CompteurColonneFeuille1 = CompteurColonneFeuille1 + 1

Loop While Len(ContenuCaseFeuille1) > 0

Worksheets(NomFeuille3).Select
MsgBox ("Terminé")

End Sub
Je voudrais savoir s'il vous plait:
1) Comment modifier mon code pour n'ajouter que les notices qui contiennent au moins une tâche de la liste "DUPONT"
2) (si possible) Comment boucler pour le faire pour chaque personne?

J'ajoute le fichier excel en pièce-jointe pour être plus clair.
Comparaison en ligne.xlsm

Merci d'avance pour votre aide

Cordialement.