Private Sub Worksheet_Change(ByVal Target As Range)
'Cette procédure est déclenchée dès qu'une cellule quelconque change de valeur
'Si la cellule modifiée n'est pas dans la plage K8:K... ou si elle égale à 0 on sort de la macro
If Intersect(Range("J8:J" & Rows.Count), Target) Is Nothing Then Exit Sub
If Target.Offset(0, 1) <> 0 Then
MsgBox "Merci de renseigner les cases " & Range("Q7") & ", " & Range("R7") & _
" et " & Range("S7") & " pour toutes les références dont l'inventaire n'est pas bon.", _
vbOKOnly + vbExclamation
End If
End Sub