copier coller avec condition

bonjour,
je me base sur le fichier ci joint pour expliciter ce que je voudrais avoir.
je voudrais remplir toutes les cellules relatives à la colonne "entreprise". j'ai mis en rouge un exple pour la première entreprise.

merci

Bonjour,
Mettre en B3 la formule

Code:

---

=INDEX($B$1:B2;7*QUOTIENT(LIGNE()+5;7)-5)

---

et la recopier dans les cellules vides de la colonne B
Cordialement

merci M. Claude, y t il pas une solution plus rapide (le fait que je copie seulement sur les cellules vides prend un peu de temps, surtout que je referai la procédure sur d'autres bases).

Bonsoir,

Avec VBA

Code:

---

1 2 3 4 5 6 7 8 9

Sub Copier() i = 1 With Worksheets("Feuil1") While Range("A" & i) <> "" If Range("B" & i) = "" Then Range("B" & i) = Range("B" & i).Offset(-1, 0) i = i + 1 Wend End With End Sub

---

Cordialement.

marche super bien gFZT82,, merci