Sub test()
Application.ScreenUpdating = False
With Sheets("Vente")
For i = .Range("A65536").End(xlUp).Row To 3 Step -1
If .Range("A" & i).Value = "" Then .Rows(i).Delete
Next i
.Range("$F$2").FormulaLocal = "=SOMME($F$4:$F$50)"
End With
Application.ScreenUpdating = True
End Sub