Bonjour
Voici un bout de code que je souhaite améliorer mais je n'y arrive pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
'Suppression des entrées sur feuille plan d'action
Sheets("Plan action").Select
Range("A1").End(xlDown).Offset(1, 0).Select
While ActiveCell.Value <> "Date"
    If ActiveCell.Offset(0, 1).Value = "1" Then
       ActiveCell.EntireRow.Delete
    End If
ActiveCell.Offset(-1, 0).Select
Sheets("Plan labo").Select
Wend
Je pense que l'on peut faire avec un truc du style

For each cell...
Next cell
Mais le problème est que je ne trouve pas la solution pour faire une selection en tenant de la dernière cellule pleine de la colonne B.

Merci de votre aide.

Fred