Microsoft 365 Filtrage colonne

Private Sub Worksheet_Activate()
Dim col%, i&, n&
col = 6 'colonne F des critères, à adapter
Application.ScreenUpdating = False
Range("A2:N" & Rows.Count).Delete xlUp 'RAZ
With Sheets("n°2  mon ficher actuel").[A1].CurrentRegion
    For i = 2 To .Rows.Count
        If .Cells(i, col) <> "" Then
            If i > 2 And .Cells(i - 1, col) = "" Then
                n = n + 2 'avec 1 ligne de séparation
                .Rows(i - 1).Copy Cells(n, 1) 'copie la ligne précédente
            End If
            n = n + 1
            If n = 1 Then n = 2 'sécurité
            .Rows(i).Copy Cells(n, 1) 'copie la ligne courante
        End If
    Next
End With
End Sub