Copie cellule, si vide --> même la dernière

Bonsoir à tous,

je me permets de vous solliciter, car je tourne en rond depuis quelques temps.

Mon but est de copier la valeur de la cellule E en B, si la cellule B est vide.

Le tout sans effacer le contenu de la cellule B si cette dernière est non vide.

Cela fonctionne, mais pas s'il y a 2 cellules B vides à suivre.

Si quelqu'un aurait une idée...

J'applique la macro suivante :

Sub Copiesivide()

Dim i As Integer, cel As Range

Dim Form As Variant

Worksheets("Feuil1").Select

'boucle sur toutes les cellules colonne B

For Each cel In Worksheets("Feuil1").Range("B2:B" & Worksheets("Feuil1").Range("B" & Worksheets("Feuil1").Rows.Count).End(xlUp).Row)

'si la cellule est vide, elle prend la de R

If cel.Value = "" Then cel.Value = cel.Offset(0, 3).Value

Next cel 'prochaine cellule colonne B

End Sub

Merci d'avance.

Bonjour

Sub Copiesivide()
 For Each cel In Worksheets("Feuil1").Range("B2", Range("B" & [e65000].End(xlUp).Row))
 'si la cellule est vide, elle prend la de R
If cel.Value = "" Then cel.Value = cel.Offset(0, 3).Value
Next cel 'prochaine cellule colonne B
End Sub

Cordialement

Bonjour,

très bien, merci, cela fonctionne