Sub Macro1()
Dim dl1 As Integer 'déclare la variable dl1 (Dernière Ligne de la colonne 1)
Dim dl2 As Integer 'déclare la variable dl2 (Dernière Ligne de la colonne 2)
Dim pl1 As Range 'déclare la variable pl1 (PLage 1)
Dim pl2 As Range 'déclare la variable pl2 (PLage 2)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche)
With Sheets("travaille") 'prend en compte l'onglet "travaille"
dl1 = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée de la colonne 1 (=A)
Set pl1 = .Range("A2:A" & dl1) 'definit la plage pl1
dl2 = .Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée de la colonne 2 (=B)
Set pl2 = .Range("B2:B" & dl2) 'definit la plage pl2
For Each cel In pl1 'boucle sur toutes les cellules cel de la plage pl1
Set r = Sheets(.Cells(1, 1).Value).Columns(1).Find(cel.Value, , xlValues, xlWhole) 'définit la recherche r
If Not r Is Nothing Then cel.Value = r.Offset(0, 1).Value 'si il existe au moins une occurrence trouvée redéfinit la cellule cel
Next cel 'prochaine cellule de la boucle
For Each cel In pl2 'boucle sur toutes les cellules cel de la plage pl2
Set r = Sheets(.Cells(1, 2).Value).Columns(1).Find(cel.Value, , xlValues, xlWhole) 'définit la recherche r
If Not r Is Nothing Then cel.Value = r.Offset(0, 1).Value 'si il existe au moins une occurrence trouvée redéfinit la cellule cel
Next cel 'prochaine cellule de la boucle
End With 'fin de la prise en compte de l'onglet "travaille"
End Sub