Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B2:F7]) Is Nothing And Target.Value = "OK" Then
Ordonee = Range("A" & Target.Row).Value
Abscisse = Cells(1, Target.Column).Value
With Sheets("Feuil2")
Set TrouveAbs = .Rows(1).Find(Abscisse, LookIn:=xlValues, lookat:=xlWhole)
Set TrouveOrd = .Columns(1).Find(Ordonee, LookIn:=xlValues, lookat:=xlWhole)
If Not TrouveAbs Is Nothing And Not TrouveOrd Is Nothing Then
Intersect(.Columns(TrouveAbs.Column), .Rows(TrouveOrd.Row)).Value = Target.Value
Else: MsgBox "Les coordonnées n'ont pas été trouvées!", vbExclamation
End If
End With
End If
End Sub