Extraction de cellule non vide VBA

Sub Extraction()
With ActiveSheet.UsedRange
    .AutoFilter 3, "<>" 'filtre automatique
    Workbooks.Add 'nouveau document vierge
    .Copy [A1]
    .AutoFilter 3
End With
End Sub

Sub Extraction()
Dim F As Worksheet
On Error Resume Next
Set F = Worksheets("Extraction")
If F Is Nothing Then MsgBox "La feuille de calcul 'Extraction' n'existe pas...": Exit Sub
On Error GoTo 0
If ActiveSheet.Name = F.Name Then Exit Sub
F.Cells.Delete 'RAZ
With ActiveSheet.UsedRange
    .AutoFilter 3, "<>" 'filtre automatique
    .Copy F.[A1]
    .AutoFilter 3
End With
F.Activate 'facultatif
End Sub