Private Sub Workbook_Open()
Workbook_SheetActivate ActiveSheet 'lance la macro
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sh.[C4]
.Select
If .Value = "" Then
MsgBox "Attention, saisir le prix !", vbInformation, "Avertissement"
CreateObject("wscript.shell").SendKeys "%{DOWN}" 'touches Alt+<BAS>, déroule la liste
ElseIf MsgBox("Etes-vous sûr du prix de " & .Text & " ?", vbQuestion + vbYesNo, "Vérification") = vbNo Then
CreateObject("wscript.shell").SendKeys "%{DOWN}"
End If
End With
End Sub