Baside j'ai regardé ta réponse qui m'a bien éclairé sur le fonctionnement du machin donc déjà merci, cependant j'arrive pas a determiner pourquoi ca marche pas:
J'ai crée une macro en m'aidant de la tienne et de l'enregistreur, mais ca bloque à la 2eme ligne je pige pas:
X = Sheets('Feuil1').Cells(19, 9)
Sheets('comptes sociaux du secteur 155').Rows(X).Copy
Sheets('Feuil1').Rows(X).Select
Range('E16').Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
N.B.La cellule (19 ,9) contient une formule. J'ai fait un collage spécial pour mettre la ligne en colonne..