Sub transpose_dans_tableau()
Dim Tablo, dl As Long
Tablo = Sheets("Formulaire").Range("B1:B4").Value
With Sheets("Evaluateurs")
dl = .Range("B65000").End(xlUp).Row + 1
.Range(.Cells(dl, 2), .Cells(dl, 5)) = Application.Transpose(Tablo)
End With
End Sub