supprimer case vide

Bonjour,

Une solution serait de procéder en utilisant le filtre automatique.

- Sélectionne la cellule dans l'entête de la colonne filtrée
- Menu / Données / Filtre / filtre automatique
- En sélectionnant la flèche, choisis l'option 'Non vides'
- sélectionne les valeurs visibles
- Copier puis coller à l'endroit de destination

Si pb n'hésite pas

Bonjour Bertreng, bonjour Dan,

Bertreng, je te propose cette macro à adapter (pour la colonne) qui supprime les cases vides :

Option Explicit 'oblige à déclarer toutes les variabbles

Sub Macro1()
Dim Li As Long 'déclare la variable Li
Dim x As Long 'déclare la variable x

Li = Range('A65536').End(xlUp).Row 'définit la variable Li (à adapter)

For x = Li To 1 Step -1 'boucle inversée sur toutes les cellules éditées de la colonne A
'si la cellule est vide, elle est supprimée
If Cells(x, 1).Value = '' Then Cells(x, 1).Delete Shift:=xlUp
Next x 'prochaine cellule de la colonne A

End Sub

Cliquez pour agrandir...