Bonjour,

Je souhaite supprimer des lignes si la cellule en B est vide j'ai crée ce code mais il me laisse des cellules vides encore.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Sub Supprimer_cellule_vide()
 
    Dim Cellule As Range
    Dim Derniere_Ligne As Long
    Dim Compteur As Long
 
    ' Déterminer la dernière ligne utilisée de la colonne A
    Derniere_Ligne = Range("B65536").End(xlUp).Row
 
    ' Démarrer du bas pour scanner toutes les lignes
    For Compteur = Derniere_Ligne To 2 Step -1
        ' Déterminer la cellule à traiter
        Set Cellule = Range("B" & Compteur)
        If Cellule = Cellule(0) Then
 
        Cellule.EntireRow.Delete
            Else
 
   End If
  Next Compteur
 End Sub
Merci de votre aide.

Cyril