Macro insertion ligne sous condition

Bonjour, dans un tableau Excel, j'aimerais organiser les tournées de clients. Sur la page 1, j'ai la liste des clients en colonne B et en colonne C j'ai le nombre de passage (de 1 à 5). J'aimerais créer une macro qui permettrait de créer en page 2 un tableau avec la liste des clients et avec 1 ligne pour le client si 1 passage, 2 lignes pour le client si 2 passages, 3 lignes pour le client si 3 passages, .... 5 lignes pour le client si 5 passage. Merci de votre aide, ce tableau est très important pour moi, je ne vois pas comment faire la macro.

Merci de votre tolérance car je suis débutant.

Bonjour,

Cette macro fera l'affaire.

Sub copie()
Dim i As Integer
Dim j As Integer
Dim k As Integer
i = 2
k = 1
While Not Range("B" & CStr(i)).Cells.Value = ""
  For j = 1 To Range("C" & CStr(i)).Cells.Value
    k = k + 1
    Range("Feuil2!B" & CStr(k)).Cells.Value = Range("B" & CStr(i)).Cells.Value
    Range("Feuil2!C" & CStr(k)).Cells.Value = Range("C" & CStr(i)).Cells.Value
  Next
  i = i + 1
Wend
End Sub

Comme le montre le classeur ci-joint

Merci,

c'est exactement celà qu'il me faut

Bonne journée

Denez

Pourrais-tu me dire, question de lisibilité, comment insérer une ligne blanche entre 2 clients.

Par avance

Merci

Oui,

Ajoute une ligne après l'instruction "Next" :

      Range("Feuil2!C" & CStr(k)).EntireRow.Insert

Merci Beaucoup,

Ce forum est super sympas,

Je vais progresser beaucoup plus vite en macro

car après les formules que tu m'envoies je les décortique pour mieux les comprendre

Encore Merci

Peux-tu vérifier s'il te plait car chez moi çà ne fonctionne pas

Parfois çà m'enlève des clients, parfois çà me mets plusieurs lignes blanches (de 1 à 5)

Tout en sachant, j'ai i=5 et k=2

Merci beaucoup de ton aide

Désolé c'est de ma faute,

après le "next", ajoute simplement

      k = k + 1