[COLOR="Red"]Private Sub Workbook_Activate()[/COLOR]
If Sheets("page de garde").Range("H48").Value = 1 Then
UserForm1.Show
Sheets("page de garde").Range("H48").Value = ""
Else: End If
End Sub
[COLOR="Red"]Private Sub Workbook_Deactivate()[/COLOR]
UserForm1.Hide
End Sub