Bonsoir,
Un exemple à adpater.
Cdlt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("C2:H7")) Is Nothing And Target.Count = 1 Then
If Me.Cells(Target.Row, 10).Value <= 0 Then
MsgBox "Désolé mais il n'y a plus de " & Me.Cells(Target.Row, 1) & "...", 64, "Information"
End If
End If
End Sub