Sub Supprime_Cellules()
Dim Der_Ligne As Long
Der_Ligne = Range('A65536').End(xlUp).Row
Range('B2:C65536').ColumnDifferences(Comparison:=Range('B65536')).Offset(1, 0).Delete shift:=xlUp
Range('D2:H' & Der_Ligne).SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp
End Sub