Sub Macro1()
Dim cel As Range 'décalre la variable cel (CELlule)
Dim plo As Range 'déclare la variable pl (PLage Origine)
Dim plc As Range 'déclare la variable pl c (PLage Cible)
Dim r As Range 'déclare la variable r (Recherche)
Set plo = Range("A1:A" & Range("A65536").End(xlUp).Row) 'définit la plage plo
Set plc = Range("B1:B" & Range("B65536").End(xlUp).Row) 'définit la plage plc
For Each cel In plo 'boucle sur toutesles cellules éditées cel de la plage plo
Set r = plc.Find(cel, , xlValues, xlWhole) 'définit la variable r (recherche la valeur de la cellule dans la plage cible)
If Not r Is Nothing Then 'condition : si il existe au moins une occurrence de r dans la plage cible
cel.Offset(0, 1).Insert Shift:=xlDown 'insère un cellule vide dans la cellule adjacente à cel
r.Cut cel.Offset(0, 1) 'coupe et colle l'occurence trouvée
End If 'fin de la connexion
Next cel 'prochaine cellule de la boucle
End Sub