Bonjour le forum,

Je débute en VBA. Je cherche à importer des lignes de la feuille Entity dans la feuille Draft en fonction de la valeur que contient les cellules de la colonne F de la feuille Entity.
Je précise : si dans la colonne F de la feuille draft la valeur de la cellule est = "base" alors copy paste sur la feuille ("draft")

Le code ci dessous fonctionne mais n'importe que la dernière ligne contenant "base" de la feuille draft ??
Pourriez vous m'aider ?
merci et bonne journée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Dim zone As Range
Dim cellule As Range
Set zone = Worksheets("entity").Range("F18:F134")
For Each cellule In zone
If cellule = "base" Then
cellule.EntireRow.Copy
End If
Next
Worksheets("Draft").Range("A18").PasteSpecial (xlPasteAll)
End Sub