La valeur zerodessus
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