Suppression des cellules mais pas de ligne

Bonsoir,

Je cherche un code pour supprimer des cellules vides entre plusieurs parties d'un bloc de cellules en remontant les valeurs de celles en dessous, mais sans supprimer les lignes.

Merci par avance

Bonjour à toi

Voici la macro

Sub DétruireLigne()
derniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = derniereLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub


A++Temjeh

oupsss

Ma façon supprime ptêtre les lignes

Attendons mieux

Temjeh

bonsoir Anber, Temjeh

Pour supprimer les cellules vides d'une zone sélectionnée en remontant, les valeurs des voisines du dessous:

Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

A+
Michel

Bonsoir Michel, Temjeh

J'ai adapté la solution à Michel, elle fonctionne super,

Merci quand même Temjeh


A+

BA