With Sheets("Test Etiquettes")
.Activate
.Cells.ClearContents
For i = 1 To UBound(ListeEtiquettes)
ligne = 1 + (Int((i - 1) / 4)) * 5
colonne = 1 + ((i - 1) Mod 4) * 8
.Cells(ligne, colonne) = ListeEtiquettes(i).Nom
.Cells(ligne + 1, colonne) = ListeEtiquettes(i).Prénom
.Cells(ligne + 1, colonne + 7) = ListeEtiquettes(i).Chambre
.Cells(ligne + 2, colonne) = ListeEtiquettes(i).Formule
.Cells(ligne + 3, colonne) = ListeEtiquettes(i).Enrichissement
.Cells(ligne + 3, colonne + 4) = ListeEtiquettes(i).HeureBib
.Cells(ligne + 3, colonne + 7) = ListeEtiquettes(i).Qté
.Cells(ligne + 4, colonne + 5) = ListeEtiquettes(i).Jourbib
.Cells(ligne + 4, colonne + 4) = ListeEtiquettes(i).Asterisque
Next i
End With