C'est bien ce que je disais
Copier la plage de cellules soit A4 : D11
Collage Spécial dans la cellule G4
Cocher la Case Transposer
sinon faire la manip avec l'enregistreur de Macro et voila ce ça donne après un petit nettoyage
Code:
Sub EssaI()
Range("A4:D11").Copy
Range("G4").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
End Sub