Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect [COLOR=#000000](Target, Range("B2:B99")) Is Nothing Then[/COLOR][COLOR=#000000]
[/COLOR][LEFT] MsgBox "attention! les numéros sont de 1 à 199, merci!"
End If[LEFT]End Sub[/LEFT]
[/LEFT]