Public Sub sup_lignes_vides()
Application.ScreenUpdating = False
NoDeColTest = 2 ' en B
NoDeLaPremLig = 7
NoDeLaDernLig = 300
For NoLig = NoDeLaDernLig To NoDeLaPremLig Step -1
If Cells(NoLig, NoDeColTest) = "" Then
[COLOR=red]If not Cells(NoLig,NoDeColText).HasFormula [/COLOR]then Rows(NoLig).Delete
Next
Application.ScreenUpdating = True
End Sub