Sub Supprimer_Lignes_Vides()
' Lignes Vides sur la Base de la Colonne F'
Dim der As Long
der = Feuil1.Cells(Rows.Count, 5).End(xlUp).Row
With ActiveSheet.Range("B3:L" & der)
.AutoFilter field:=5, Criteria1:=""
.Offset(1, 0).EntireRow.Delete
.AutoFilter
End With
End Sub