Bonjour à tous,

J'aimerai savoir ce qui cloche dans mon code...

J'essai de supprimer la ligne X dès que la cellule B&X est vide

Merci d'avance



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
 
 
Sub essaimacro()
Dim S As Long, T As Long
'Dans la cellule B1, y'a le compte des valeurs de la colonne B
S = Sheets("Feuil_historique").Range("B1")
'Je commence à descendre à partir de la ligne 3
T = 3
Do Until T = S
'Si la Cellule B&T est vide
If IsEmpty(Sheets("Feuil_historique").Range("B" & T)) Then
'Alors retirer la ligne T
Sheets("Feuil_historique").Rows(T).EntireRow.Delete Shift:=xlUp
End If
T = T + 1
Loop
End Sub