Merci, mais dans mon cas je ne peux pas car
je pars d'une feuille ou je sélectionne 7 cellule d'une colonne, je vais sur une seconde feuille, où je colle ces 7 cellules en les transposant
ce qui donne ceci: (attention ce n'est qu'une partie de la macro, je ne peux pas faire autrement que de transposer, car en définitif, elle est plus complexe que ceci, car il y a aussi un compteur etc etc...)
Sheets('feuille1').Select
Range('A1:A7').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('feuille2').Select
Rane('A1').select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
et ici il manque le format.....?????
QUI SERAIT SI C'ETAIT DES NOMBRE:
Selection.NumberFormat = '''MR '' 0'
CHANTAL