Dim cel As Range, plagemenu As Integer
Sub transpose_dans_tableau()
plagemenu = Feuil1.Range("A65536").End(xlUp).Row + 1
With Feuil1
.Cells(plagemenu, 1) = Feuil2.Range("B1")
.Cells(plagemenu, 2) = Feuil2.Range("B2")
.Cells(plagemenu, 3) = Feuil2.Range("B3")
.Cells(plagemenu, 4) = Feuil2.Range("B4")
End With
End Sub