Boucle permettant de recopier tant que la cellule <> vide

Bonjour

J'ai une feuille "Listing" avec les champs suivants de A1 à c1

n° /nom/prénom

j'ai un bouton macro "recopier listing vers feuille 2"

TAnt que nom (colonne B) est <> "" je voudrais que les infos de la ligne ? *colonnes A à C soient recopiées dans feuille 2

à partir de la ligne6

en ligne 5, j ai

a5= n°; b5=nom; c5=prenom.

Quelqu'un pourrait il m'aider?

merci

Zbigniew

Bonjour,

voici une solution

Sub Recopie()

Application.ScreenUpdating = False

With Sheets("Listing")
i = 2
    Do While Cells(i, 1) <> ""
        .Range(Cells(i, 1), Cells(i, 3)).Copy Destination:=Sheets("Feuil2").Cells(i + 4, 1)
    i = i + 1
    Loop

End With

Application.ScreenUpdating = True

End Sub

End Sub

Cordialement

Bonjour

Que dire de plus que "MEEEEEEEEEEEEEEEEERRRCI"

C'est exactement ce que je voulais.

En feuille 3 je souhaiterais un copie différent

les cellules des colonnes 1 à 7 : dans feuille3 en ligne 4 (idem que récap)

et la cellule de la colonne 8 en feuille 3, en ligne 16

merci

Zbig

Si j'ai bien compris, ça donne ça :

Bonjour

c'est exactement cela.

merci beaucoup

Zbig