Boucle dans une macro avec ActiveCell.Offset

Bonjour, je reviens vers vous pour un nouveau problème de macro et de boucle avec condition sur des cellules non définies nominativement.(ActiveCell.Offset).

Je sélectionne une cellule de la colonne a puis je clique sur le bouton archives, un copier coller avec transposition des colonnes o à ,,,

Je n'arrive pas à recopier par une boucle les cellules A à M en m'arrêtant à la dernière cellule N remplie.

Je vous joins un bout de mon fichier.

Par avance, merci de votre aide.

Bonsoir tealk78 le forum

et si tu nous expliquais ce que tu veux faire exactement car ta macro n'est certainement pas le reflet de ce que tu cherches à faire, alors expliques et je te fais cela

a+

papou

Bonsoir à tous,

D'après ce que j'ai compris,

Sub essaiClaude()
Dim DerL%, Lg%, Lg2%, cL%
    Application.ScreenUpdating = False
    DerL = Range("a65536").End(xlUp).Row
    Lg = ActiveCell.Row
    cL = Cells(Lg, "IV").End(xlToLeft).Column

    If Lg < 3 Or Lg > DerL Then Exit Sub 'contrôle position

    Range(Cells(Lg, "o"), Cells(Lg, cL)).Copy
    Cells(DerL + 1, "n").PasteSpecial Paste:=xlValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=True
    Application.CutCopyMode = False

    Lg2 = Range("n65536").End(xlUp).Row
    Range(Cells(Lg, "a"), Cells(Lg, "m")).Copy Destination:= _
    Range(Cells(DerL + 1, "a"), Cells(Lg2, "a"))
End Sub

édit: Nouveau code et fichier (erreur DerL)

Amicalement

Claude

Bonjour

Mon idée

Bonjour Banzai64, Claude, Papou, merci pour votre aide, les propositions effectuées répondent exactement à mon besoin.

Bonne journée.