Filtre automatique à l'ouverture du fichier

Option Explicit
Private Sub Worksheet_Activate()
For_X_to_Next_Ligne
End Sub
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Feuil1") ' a adapter
    NoCol = 1 'lecture de la colonne 1 ' a adapter
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If FL1.Cells(NoLig, NoCol).Interior.Pattern = xlNone Then ' ne fonctionne que si les autres lignes n'ont pas de couleurs
        Else
       If NoLig = 1 Then Exit Sub
       Range("A" & NoLig).EntireRow.Cut
       Range("A1").EntireRow.Insert shift:=xlDown 'a adapter
        End If
        Next
    Set FL1 = Nothing
End Sub