XL 2010 Suppression ligne dont une colonne contient un zero

Sub SupColFnulle()
    Application.ScreenUpdating = False
    DL = Range("F65500").End(xlUp).Row
    Range("F6").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$6:$G$" & DL).AutoFilter Field:=6, Criteria1:="0"
    Fin = Range("F65500").End(xlUp).Row
    If Fin - 6 > 1 Then
        Rows("6:" & Fin).Select
        Selection.Delete Shift:=xlUp
    End If
    ActiveSheet.Range("$A$6:$G$" & DL).AutoFilter Field:=6
    Selection.AutoFilter
    [A1].Select
End Sub