[RESOLU] code masquer demasquer ligne tres lent à l'execution

bonjour

voila le code qui me permet de masquer et demasquer des lignes d'un tableau a deux colonnes grace a un bouton mis sur la feuille concerne.

Sub Bouton14_Cliquer()

Application.ScreenUpdating = False

On Error Resume Next
With ActiveSheet.Shapes(Application.Caller).TextFrame.Characters
If .Text = "Masquer" Then
.Text = "Démasquer"

Range("c10:c459").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

Else

.Text = "Masquer"
For Each Cel In Range("C10:C459")
Rows(Cel.Row).Hidden = False

Next Cel

End If
End With
End Sub


lorsque je clic sur le bouton, les 450 lignes du tableau don l'une des cellules est vide se masquent en 0.5 sec mais lorsque je clic sur le meme bouton pour les demasquer, cela doit bien prendre 4 sec.

est ce qu'il serai possible d'aller plus vite ?

merci et bonne journee