Insertion ligne planning

Bonjour à tous,

Dans mon fichier mit en PJ,

Je souhaiterai qu'en fonction de la durée du chantier présente dans mon Userform (UF_Planning), insérer le nombre de lignes correspondant à la durée dans la feuille "Récapitulatif".

Par exemple, si ma durée dans mon Userform est égale à 05:00, j'aimerai que 5 lignes s'insèrent dans ma feuille "Récapitulatif", avec la répétition 5 fois du nom du chantier, de la date de début, du nom du sous-traitant, du type de pose ainsi que la durée.

J'ai essayé de mettre en place une boucle (Do while) qui permet de prendre en compte le jour (du lundi au vendredi) ainsi que l'heure ouvré (8h-12h, 14h-18h) :

Voici ce que j'ai essayé :

Sub GenererPlanning()

Dim VHeureDebut As Integer

Dim VDurée As Integer

Dim VPassage As Integer

Sheets("Renseignements").Activate

Range("E3").Value = VHeureDebut

Do While VPassage <= VDurée

If VHeureDebut = 12 Then

VHeureDebut = VHeureDebut + 2

End If

If VHeureDebut = 13 Then

VHeureDebut = VHeureDebut + 1

End If

If VHeureDebut >= 18 Then

VHeureDebut = VHeureDebut + 14

End If

VHeureDebut = VHeureDebut + 1

VPassage = VPassage + 1

Loop

End Sub

Un grand merci pour votre aide !

J'ai essayé je n'y arrive pas dsl