Assez bizarrement vos cellules vides semblent comporter quelque chose. Donc je vous donne deux codes à tester
Sub test()
Dim lig As Integer
Dim i As Integer
lig = ActiveCell.Row
For i = 99 To 81 Step -1
If Cells(lig, i) = "" Then Cells(lig, i).Delete Shift:=xlToLeft
Next i
End Sub
Ou celui-ci plus rapide mais qui pose souci dans votre fichier posté
Sub test()
Dim lig As Integer
Dim i As Integer
lig = ActiveCell.Row
Range("CC" & lig & ":CU" & lig).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub
Vous pouvez éventuellement placer un bouton sur votre feuille et le relier au code
Pour exécuter le code :
- Positionnez vous sur la ligne à traiter
- Exécutez le code (via votre bouton éventuel
Comme vous précisez "lignes par lignes", j'ai supposé que vous ne traitez que ligne par lignes. Le code n'est donc exécuté que sur la ligne dans laquelle vous avez sélectionné une cellule
Cordialement