Sub CacherLigne()
Dim Cellule As Range
Dim Zone As Variant
'geler l'écran
Application.ScreenUpdating = False
'Définir zone (ici colonne A jusqu'à 146)
Set Zone = SHEETS('nom de ta feuille').Range('M4', Range('M146').End(xlUp))
'on commence la boucle sur les Cellules de Zone
For Each Cellule In Zone
'si cellule différente de ST-MALO malgré formule alors masquer
If Cellule.Value = 'ST - MALO' Then Cellule.EntireRow.Hidden = True
'on continue la boucle
Next Cellule
'rétablir écran
Application.ScreenUpdating = True
End Sub