Microsoft 365 Masquer des lignes par macro

Option Explicit
Dim x%
Sub masquerligne()
  Application.ScreenUpdating = False
  For x = 4 To 13
    If Sheets("Feuil1").Cells(x, 1) = "" Then
      Rows(x).EntireRow.Hidden = True
    Else
      Rows(x).EntireRow.Hidden = False
    End If
  Next
  Application.ScreenUpdating = True

End Sub

Option Explicit
Dim x%
Sub masquerligne()
  Application.ScreenUpdating = False
  For x = 4 To 13
      Rows(x).EntireRow.Hidden = Cells(x, 1) = ""
  Next
  Application.ScreenUpdating = True
End Sub

Sub MasqueLignes()
    Range("A3:A13").AutoFilter
    ActiveSheet.Range("$A$3:$A$13").AutoFilter Field:=1, Criteria1:="<>"
End Sub