Private Sub Worksheet_Change(ByVal Cible As Range)
If Cible.Address(0, 0) = "B6" And Cible(1).Value >= 1000000 Then
If MsgBox("La quantité est-elle réellement supérieure ou égale à 1 000 0000 d'étiquettes ?", vbQuestion + vbYesNo, "Attention !") = vbNo Then Cible.Select
End If
End Sub