XL 2010 Extraction après application de filtre

Sub CopieFiltre1()
With Sheets("Exctration_Data") 'sic...
    .Cells.Delete 'RAZ
    Sheets("Data").[A5].CurrentRegion.Copy .[A1]
    .Columns.AutoFit
End With
End Sub

Sub CopieFiltre2()
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si le fichier a déjà été créé
With Workbooks.Add
    ThisWorkbook.Sheets("Data").[A5].CurrentRegion.Copy .Sheets(1).[A1]
    .Sheets(1).Columns.AutoFit
    .SaveAs ThisWorkbook.Path & "\Extract_Data.xlsx" 'chemin d'accès à adapter éventuellement
    .Close True
End With
End Sub

Sub CopieFiltre1()
Application.ScreenUpdating = False
Dim P As Range, col%
With Sheets.Add(After:=Sheets(Sheets.Count))
    .Name = "Extract_" & Format(Now, "yyyymmdd_hhmmss")
    Sheets("Data").[A5].CurrentRegion.Copy .[A1]
    Set P = .[A:F,I:I,N:N,R:R,W:Z,AB:AB] 'colonnes à conserver
    For col = .[A1].CurrentRegion.Columns.Count To 1 Step -1
        If Intersect(.Columns(col), P) Is Nothing Then .Columns(col).Delete
    Next
    .Columns.AutoFit
End With
End Sub

Sub CopieFiltre2()
Dim P As Range, col%
Application.ScreenUpdating = False
With Workbooks.Add.Sheets(1)
    ThisWorkbook.Sheets("Data").[A5].CurrentRegion.Copy .[A1]
    Set P = .[A:F,I:I,N:N,R:R,W:Z,AB:AB] 'colonnes à conserver
    For col = .[A1].CurrentRegion.Columns.Count To 1 Step -1
        If Intersect(.Columns(col), P) Is Nothing Then .Columns(col).Delete
    Next
    .Columns.AutoFit
    .Parent.SaveAs ThisWorkbook.Path & "\Extract_" & Format(Now, "yyyymmdd_hhmmss") & ".xlsx" 'chemin d'accès à adapter éventuellement
    .Parent.Close True
End With
End Sub

Sub CopieFiltre11()
Application.ScreenUpdating = False
With Sheets.Add(After:=Sheets(Sheets.Count))
    .Name = "Extract_" & Format(Now, "yyyymmdd_hhmmss")
    Intersect(Sheets("Data").[A5].CurrentRegion, Sheets("Data").[A:F,I:I,N:N,R:R,W:Z,AB:AB]).Copy .[A1]
    .Columns.AutoFit
End With
End Sub

Sub CopieFiltre12()
Application.ScreenUpdating = False
With Workbooks.Add
    Intersect(ThisWorkbook.Sheets("Data").[A5].CurrentRegion, ThisWorkbook.Sheets("Data").[A:F,I:I,N:N,R:R,W:Z,AB:AB]).Copy .Sheets(1).[A1]
    .Sheets(1).Columns.AutoFit
    .SaveAs ThisWorkbook.Path & "\Extract_" & Format(Now, "yyyymmdd_hhmmss") & ".xlsx" 'chemin d'accès à adapter éventuellement
    .Close True
End With
End Sub