Optimisation code VBA

Bonjour,

Est ce que quelqu'un peut m'optimiser ce bout de code ... cela fonctionne mais c'est long!!

Sub Masquerlescolonnes()
'
' Masquerlescolonnes Macro
'
Dim rng As Range
Sheets("Production").Select
For Each rng In [t5:xfd5]
If rng.Value = Range("e2") Then rng.EntireColumn.Hidden = False Else rng.EntireColumn.Hidden = True
Next rng
End Sub

Merci d'avance

bonjour,

essayer en rajoutant avant la boucle :

Application.ScreenUpdating = False

A+

Bon c'est beaucoup mieux et acceptable

Je cloture la demande

Merci pour votre collaboration