If Target.Address = [Scan].Address Then ' Si la valeur modifiée est Scan
Dim C
Set C = Columns(2).Find(Target.Value, , xlValues, xlWhole) ' Rechercher cette valeur dans la colonne 2 (Col B)
Application.EnableEvents = False ' Figer écran
If Not C Is Nothing Then ' Si la valeur a été trouvée
' c.Interior.ColorIndex = 35
[J4].Offset(, 1) = Target.Value ' Ecrire cette valeur en K4, J4 décalé de 1 colonne
[J5].Offset(, 1).Offset(1) = C.Offset(, 1).Value ' Mettre en K7 la valeur trouvée en Col, C même ligne
C.Offset(, 3) = "OK" ' Mettre OK en colonne E même ligne
Else
[J4:J5] = "" ' Sinon effacer J4:J5
End If
Application.EnableEvents = True ' Rétablir l'affichage
End If
End Sub