Sub Kenavo()
Compteur = 1
Depart = 5
Do While IsEmpty(Cells(Depart, 1)) = False
NbRepas = Cells(Depart, 3) + Cells(Depart, 4)
valo = Cells(Depart, 1)
With Sheets("Liste etiquettes")
.Range(.Cells(Compteur, 1), .Cells(Compteur + NbRepas - 1, 1)).Value = valo
End With
Compteur = Compteur + NbRepas
Depart = Depart + 1
Loop
End Sub