Incrémentat° de la transposition des colonnes en ligne avec VBA

Bonjour

Faute de renseignement précis
Et si on tient absolument à une macro

après avoir sélectionné la zone à transposer
restitution en feuille 2 .A1

Sub transposercolonnes_lignes()
Dim Lig As Long, Col As Integer

     Lig = Selection.Rows.Count
     Col = Selection.Columns.Count
     Sheets(2).Range("A1").Resize(Col, Lig) = Application.Transpose(Selection.Value)
End Sub

Réponse à pépé

je ne peux pas utiliser copie collage spéciale parce que: c'est plus compliquer, je veux programmer cette opération. j'ai 12 feuil et chaque feuil comporte 102 colonnes. les 12 feuil représente une rubrique (code) dont l'entête des colonnes comporte les matricules des 102 employés, la colonne A comporte les mois et année de prise en compte des opérations entrée concernant les employé. la feuil de "consolidation"(où je voudrais transposer) présente donc les noms de 102 employé en ligne et les rubriques(code) en colonne.

Merci pour votre considération apportée à mon problème

Pour Michel Merci

Avant tout je sollicite de votre part beaucoup de patience parce que je souhaite que vous m'accompagniez jusqu'au bout de mon développement.

Je souhaite que la macro définisse elle même la plage à transposer suivant le critère suivant. Dans la cellule D2 des 102 feuil se trouve le mois et année de prise en compte des valeurs à transposer. Si la macro trouve la valeur de D2 dans la colonne A de chaque feuil, elle select A(x):DP(y) ,le copie puis le transpose sur la feuil de destination.
x = n° de la première ligne
y = n° de la dernière ligne.
MERCI

je vous souhaite bon dimanche.

Merci
J'opte vous soumettre une pièce jointe dès demain
A+

Bonsoir à tous et spécialement à Michèl_m
Je crois avoir obtenu votre accord d'envoyer ce lien pour vous expliquer plus clairement mon problème.

Trouver SVP sur la feuille "Tournage de paie" les résultats escomptés
Et enfin une blague pour vous faire sourire.

http://cjoint.com/?BLlqrIee3Au