re
sur la feuille en question:
Private Sub Worksheet_Activate()
debut:
If MsgBox("Te serviras-tu de cette feuille correctement ?", vbYesNo + vbCritical, "attention...") = vbNo Then
GoTo debut
End If
End Sub
ou sur le fichier (dans thisworkbook)
Private Sub Workbook_Open()
debut:
If MsgBox("Te serviras-tu de cette feuille correctement.", vbYesNo + vbCritical, "attention...") = vbNo Then
GoTo debut
End If
End Sub
A adapter suivant tes besoins
Salut
Hervé