Private Sub Worksheet_Activate()
'If Worksheets("SuivisAppels").Range(ActiveCell).RowHeight = 0 Then Exit Sub
'If Worksheets("SuivisAppels") Then Exit Sub
'If Worksheets("SuivisAppels") = True Then Exit Sub
If [a1] = 1 Then
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
Application.EnableEvents = False
ActiveSheet.Unprotect Password:="Krameri"
Application.ScreenUpdating = False
Application.EnableEvents = False
Range(Cells(1, 24), Cells(1, 2)).Select 'juste 5 à changer selon le nombre de colonnes à afficher
ActiveWindow.Zoom = True
Range("A1").Select
ActiveWindow.DisplayGridlines = False
Application.DisplayFormulaBar = False
Range("L13:R50").Select
Selection.ClearContents
[l13] = "Cliquez sur un mot clé pour afficher l'argus"
[l15].Font.Name = "Arial"
[l15].Font.Size = 14
' [b49] = d:
[a1] = 2
Range("a1").Select
ActiveWindow.ScrollRow = Selection.Row
Else
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveWindow.DisplayHeadings = False
ActiveSheet.Unprotect Password:="Krameri"
Range("L13:R50").Select
Selection.ClearContents
[l13] = "Cliquez sur un mot clé pour afficher l'argus"
' [b49] = d:
Range("a1").Select
ActiveWindow.ScrollRow = Selection.Row
End If
ActiveSheet.Protect Password:="Krameri", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = False
Application.EnableEvents = False
With Sheets("SuivisAppels")
.Activate
[b51] = .Cells(ActiveCell.Row, 18)
End With
Me.Activate
ActiveSheet.Protect Password:="Krameri", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub