Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Cells(3, 4)
If KeyCells.Value = "" Then
KeyCells.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 3, xlNone, 3)
MsgBox "Veuillez saisir un Code Produit"
KeyCells.Select
Else
KeyCells.Interior.ColorIndex = 0
End If
End Sub