Private Sub Worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Range("c18:d23,c29:d34,c40:d45,c51:d56,c62:d67,c73:d78,c84:d89,c95:d100,c106:d111,c117:d122,c128:d133,c139:d144,c150:d155,c161:d166,c172:d177")) Is Nothing Then
If Target.Value <> 0 And Target.Column = 3 Then
If Target.Offset(0, 4) <> 0 Or Target.Offset(0, 5) <> 0 Then
MsgBox "Une référence pour un box mis à niveau est déjà renseignée", vbcritidal + vbOKOnly, "Erreur"
Target.ClearContents
End If
Else
If Target.Value <> 0 And Target.Column = 4 Then
If Target.Offset(0, 3) <> 0 Or Target.Offset(0, 4) <> 0 Then
MsgBox "Une référence pour un box mis à niveau est déjà renseignée", vbcritidal + vbOKOnly, "Erreur"
Target.ClearContents
End If
Else
End If
End If
End If
End Sub