For i = 0 To 5
Feuil1.Activate ' J'active la feuille initiale la ou il ya mes données "brutes"
buffer = Cells(2 + i, 9).Value ' je stocke la valeur de la cellule qui m'interesse
Sheets("SondageMisenPage").Activate ' J'active la nouvelle feuille creer
Cells(3 + 6 * i, 6).Value = buffer ' je copie mes données au bon endroit