Dim espion As Boolean 'mémorise la variable
Private Sub Worksheet_Calculate()
Application.OnTime 1, Me.CodeName & ".Analyse"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
espion = True
End Sub
Sub Analyse()
Application.EnableEvents = False
If espion Then
Columns("H:M").Hidden = UCase([B2]) = "OUI"
Columns("E:E").Hidden = UCase([B3]) = "OUI"
espion = False
Else
[B2] = IIf(Columns("H:M").Hidden, "Oui", "Non")
[B3] = IIf(Columns("E").Hidden, "Oui", "Non")
End If
Application.EnableEvents = True
End Sub