Les problèmes s'enchaines, surtout avec les boucles que je maîtrise mal.
Code:
If Application.WorksheetFunction.Sum(Cells(Ligne, Colonne), Cells(36, Colonne)) <> 0 And compteur <= Durée Then
Col = Colonne + 1
Do
Cells(Ligne, Col + 1).Value = Q
Col = Col + 1
compteur = compteur + 1
Loop
End If
dans ce code la boucle Do s'exécute jusqu'à la fin de la feuille et ne tient pas compte de la condition
le fichier est difficile a reproduire en exemple alors je mets le lien du fichier complet, mais attention si vous clicker sur le bouton "renseigner la feuille de l'userform5 et qu'il y a des valeurs dans les textbox ça va tourner un moment avant que toutes les lignes soient remplies puisque la boucle ne s'arrête pas