XL 2010 Explication code

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