XL 2010 supprimer ligne vide

Sub SupprimeLignes()
Dim deb As Integer, fin As Integer, i As Integer

deb = Range("F1").End(xlDown).Row - 1
fin = Range("B" & Rows.Count).End(xlUp).Row

Rows("1" & ":" & deb).Delete

For i = Range("B" & fin).Row To 3 Step -1
    If (IsNumeric(Range("C" & i)) And Range("C" & i) <> "") = False Then Rows(i).Delete
Next i

End Sub

Sub a()
Dim i&, DL&
Application.ScreenUpdating = False
DL = Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To DL
If Application.CountBlank(Cells(i, "A").Resize(, 6)) = 6 Then
Cells(i, "H") = "X"
End If
Next
Columns("H:H").SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
End Sub

Sub b()
Dim DL&
Application.ScreenUpdating = False: DL = Cells(Rows.Count, "B").End(xlUp).Row
Range("H1:H" & DL).FormulaR1C1 = "=REPT(22,COUNTBLANK(RC[-7]:RC[-2])=6)*1"
Columns(8).SpecialCells(-4123, 1).EntireRow.Delete: Columns(8).Delete
End Sub

If (IsNumeric(Range("C" & i)) And Range("C" & i) <> "") = False Then Rows(i).Delete

Sub SupprimeLignes()
Application.ScreenUpdating = False
Dim deb As Integer, fin As Long

deb = Range("K1").End(xlDown).Row - 1
fin = Range("C" & Rows.Count).End(xlUp).Row

Rows("1" & ":" & deb).Delete

Range("L2:L" & fin).FormulaR1C1 = "=IF(ISNUMBER(RC[-4]),"""",""X"")"
Range("L2:L" & fin) = Range("L2:L" & fin).Value

Columns("L:L").SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete

End Sub

Sub mC()
Dim DL&
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
DL = Cells(Rows.Count, "C").End(xlUp).Row
With Range("M1:M" & DL)
    .Value = "=IF(COUNTBLANK(RC[-12]:RC[-2])=11,""$$$"",0)"
    .Value = .Value
End With
Columns(13).SpecialCells(2, 2).EntireRow.Delete
Columns(13).Delete
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub