Copier/Coller valeur en fonction plage de cellule différente vers classeur

Bonjour,

Je bloque sur une partie du code.

Je souhaites que la valeur de la cellule E3 d'un classeur X puisse être copier et coller vers un classeur Y en cellule B1 pour chaque cellule renseignée dans une plage de cellule B9:B10000 du Classeur X.

Voici le début de mon code :

Dim plage As Range
Dim cel As Integer
Dim cel1 As Range

cel = WB1.Worksheets("Données").Range("E3")
Set plage = Range("B9:B" & Range("B10000").End(xlUp).Row)

For Each cel In plage

If cel1 <> "" Then

cel.Copy
WB2.Worksheets("Y").Range("B1").PasteSpecial Paste:=xlPasteValues

Next
End If

Mais ce code ne fonctionne pas.

Si vous pouvez m'aiguiller, je vous en serai reconnaissant.

Cdt.