Sub Macro1()
Dim Lig&
Application.ScreenUpdating = False
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Lig = Cells(Rows.Count, 1).End(xlUp).Row
Range("N9:N" & Lig).FormulaR1C1 = "=IF(LEFT(RC[-13],3)*1,""$"",0)"
Range("N9:N" & Lig).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
Columns("N:N").ClearContents
Rows("1:7").Delete Shift:=xlUp
End Sub