Sub LignesVidesFormules()
Dim DerLig As Long, DerCol As Long
DerLig = Cells(Rows.Count, 1).End(xlUp).Row
DerCol = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(1, DerCol + 1), Cells(DerLig, DerCol + 1)).FormulaR1C1 = "=IF(COUNTBLANK(RC[-" & DerCol & "]:RC[-2])=0,""X"",0)"
Columns(DerCol + 1).SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
Columns(DerCol + 1).Delete Shift:=xlToLeft
End Sub