Private Sub Worksheet_Activate()
Dim Cel As Range
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
For Each Cel In Feuil4.Range("A3:A100")
If IsNumeric(Cel) Then Cel.EntireRow.Hidden = True
Next
For Each Cel In Feuil4.Range("B3:B100")
If Cel <> "Saisonnier" And Date > DateSerial(2018, 6, 1) Then
Cel.Offset(, 4).Copy Cel.Offset(, 3)
Cel.Offset(, 4) = 0
End If
Next
If Date > DateSerial(2018, 6, 1) Then [A1] = "BILAN CP " & [An] & "-" & [An] + 1
Application.ScreenUpdating = True
End Sub