Private Sub Workbook_Open()
Command1_Click
End Sub
Private Sub Command1_Click()
If MsgBox("Attention prochaine ouverture de plis le " & Range("SYNTHESE!L1"), vbExclamation + vbOKOnly, "MESSAGE IMPORTANT") = vbOK Then
Sheets("SYNTHESE").Cells([L2], 3).Select
End If
End Sub