Sub Supprimer_les_lignes_vides()
Dim c& 'pour l'effacement des colonnes toutes vide
Dim l&
Range("C2:C65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'supprime les lignes vide
'supprime les colonnes entièrement vide
For c = 26 To 2 Step -1
If WorksheetFunction.CountA(Columns(c)) = 0 Then
Columns(c).EntireColumn.Delete
End If
Next c
End Sub