Option Explicit
Private Sub Worksheet_Activate()
Range("C51").Select
Selection = MsgBox("Avez-vous saisi le nombre de semaines travaillées ce mois?", vbYesNo)
Select Case Selection
Case vbYes
MsgBox ("Ok")
Case vbNo
Selection = InputBox("Saisissez-le :", "Nombre de semaines")
End Select
Application.EnableEvents = False
End Sub