Sub Masque2()
Application.ScreenUpdating = False 'Permet d'éviter les affichages à l'écran
Application.Calculation = xlManual 'Passe en mode recalcul manuel
'--------
'TON CODE
'--------
For i = 1 To 54 'Ici tu mets le nombre le ligne
If Range("A" & i) = "" Then 'Test si la cellule A est vide
Rows(i).EntireRow.Hidden = True 'Masque la ligne
End If
Next i
'------------
'FIN TON CODE
'------------
Application.Calculation = xlAutomatic 'Reppase en mode recalcul automatique
Application.ScreenUpdating = True 'Permet d'éviter les affichages à l'écran
End Sub