Sub Presentation()
Dim i, j As Integer
i = 2
' Boucle tant que la 1ère cellule de la ligne i n'est pas vide
Do While Sheets("Données").Cells(i, 1).Value <> ""
' on incrémente le numéro de ligne
i = i + 1
Loop
' on retient le numéro de la dernière ligne vide
i = i - 1
' Boucle qui balaie les lignes 2 à la dernière ligne non vide (ligne i)
For j = 2 To i
' Recopie la cellule 14 de la ligne j (feuille "Données") dans la cellule 1 de la
' ligne j (feuille "Essai")
Sheets("Essai").Cells(j, 1).Value = Sheets("Données").Cells(j, 14).Value
' Recopie la cellule 1 de la ligne j (feuille "Données") dans la cellule 2 de la
' ligne j (feuille "Essai")
Sheets("Essai").Cells(j, 2).Value = Sheets("Données").Cells(j, 1).Value
' Recopie la cellule 63 de la ligne j (feuille "Données") dans la cellule 3 de la
' ligne j (feuille "Essai")
Sheets("Essai").Cells(j, 3).Value = Sheets("Données").Cells(j, 63).Value
' ...
Sheets("Essai").Cells(j, 4).Value = Sheets("Données").Cells(j, 12).Value
Sheets("Essai").Cells(j, 5).Value = Sheets("Données").Cells(j, 18).Value
Sheets("Essai").Cells(j, 6).Value = Sheets("Données").Cells(j, 36).Value
Sheets("Essai").Cells(j, 7).Value = Sheets("Données").Cells(j, 24).Value
Sheets("Essai").Cells(j, 8).Value = Sheets("Données").Cells(j, 34).Value
Next