XL 2016 VBA- masquer des colonnes avec une condition

Bonjour,

J'ai trouver ce code VBA qui à l'air de bien fonctionner, le seul bémol c'est qu'il prend trop de temps et met la feuille Excel en état épileptique .

Vous serez sympa de m'y aider pour ça.

Merci


Sub masquerWeekend()
For Each cell In ActiveSheet.Range("h1:mm1"):
If cell.Value < Range("g1") Then
Columns(cell.Column).Select
Selection.EntireColumn.Hidden = True
End If
Next cell
End Sub

'Or cell.Value <> ""