Private Sub Worksheet_Activate()
Dim Reponse
'---
Application.EnableEvents = False
Range("C51").Select
Reponse = MsgBox("Avez-vous saisi le nombre de semaines travaillées ce mois?", vbYesNo)
Select Case Reponse
Case vbYes
MsgBox ("Ok")
Case vbNo
'////////////////////////////////////////////////////////////////
'/// La boucle Do Loop sert à borner le nombre de semaines.
'/// Si <1 ou >52 on refait la demande.
'/// Si ce test n'est pas nécessaire, retirez les instructions :
'/// Do
'/// Loop Until Reponse > 0 And Reponse < 53
'////////////////////////////////////////////////////////////////
Do
Reponse = Application.InputBox(prompt:="Saisissez-le :", Title:="Nombre de semaines", Type:=1)
Loop Until Reponse > 0 And Reponse < 53
Range("C51") = Reponse
End Select
Application.EnableEvents = True
End Sub