Sub a()
Dim i&
For i = 1 To Feuil1.[B65536].End(xlUp).Row Step 6
Feuil2.Cells(65536, "E").End(xlUp)(2).Resize(, 6) = _
Application.Transpose(Feuil1.Cells(i, "C").Resize(6))
Next
Feuil2.[E1].Resize(, 6) = Application.Transpose(Feuil1.[B1:B6])
Feuil2.[D2:D4] = Application.Transpose(Array("puits 10", "puits 21", "puits 22"))
End Sub