Private Sub Workbook_SheetdeActivate(ByVal Sh As Object)
With Sheets(Sh.Name)
If .Visible = False Then
.Range("B3:B6").ClearContents ' Ajuster plage à effacer
.Range("E1:E22").ClearContents ' Ajuster plage à effacer
' Rajouter plages à effacer
End If
End With
End Sub