Sub mC()
Dim DL&
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'Détermine la dernière ligne non vide de la colonne C
DL = Cells(Rows.Count, "C").End(xlUp).Row
'Dans la colonne M
With Range("M1:M" & DL)
'inscrit un formule qui compte les cellules vides dans les cellules A à K
.Value = "=IF(COUNTBLANK(RC[-12]:RC[-2])=11,""$$$"",0)"
'si le nombre de cellules vides est égal à 11 alors on inscrit $$$ sinon 0
.Value = .Value
'On transforme les formules en valeur seule
End With
'On supprime les lignes dont les cellules contiennent $$$
'Ce qui revient donc à supprimer les lignes vides
Columns(13).SpecialCells(2, 2).EntireRow.Delete
'on supprime la colonne M
Columns(13).Delete
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub