Procedure trops longue VBA

bonjour

je suis nouveau ici et ne connais pas grand chose dans les vba

je me dépatouille comme je peux mais la je n arrive pas

mon vba me dit que la procédure est trop longue

comment puis je faire

merci pour votre aide

ci-joint mon fichier

voila le fichier au format texte

Bonjour,

dans un fichier txt....

c'est un forum Excel ici, pas word ou wordpad

P.

bonjour Patrick

j ai poster un fichier txt car excel trop volumineux

le fichier txt est la macro qui pose probleme

merci

cordialement

Sub envoyefactureaarchive()
Dim dlg As Integer
Dim cel As Range
dlg = Sheets("Archive").Range("A" & Rows.Count).End(xlUp).Row + 1
With Sheets("Archive")
    .Range("A" & dlg) = Sheets("Factures1").Range("a11")
    .Range("b" & dlg) = Sheets("Factures1").Range("b13")
    .Range("c" & dlg) = Sheets("Factures1").Range("b14")
    .Range("d" & dlg) = Sheets("Factures1").Range("b15")
    .Range("e" & dlg) = Sheets("Factures1").Range("a12")
    .Range("f" & dlg) = Sheets("Factures1").Range("a17")
    .Range("g" & dlg) = Sheets("Factures1").Range("b17")
    .Range("h" & dlg) = Sheets("Factures1").Range("c17")
    .Range("i" & dlg) = Sheets("Factures1").Range("d17")
    .Range("j" & dlg) = Sheets("Factures1").Range("e17")
    .Range("k" & dlg) = Sheets("Factures1").Range("f17")
    .Range("l" & dlg) = Sheets("Factures1").Range("g17")
    .Range("m" & dlg) = Sheets("Factures1").Range("a18")
    .Range("n" & dlg) = Sheets("Factures1").Range("b18")
    .Range("o" & dlg) = Sheets("Factures1").Range("c18")
    .Range("p" & dlg) = Sheets("Factures1").Range("d18")
    .Range("q" & dlg) = Sheets("Factures1").Range("e18")
    .Range("r" & dlg) = Sheets("Factures1").Range("f18")

pour le debut

la suite a la suite

et la fin

    .Range("ael" & dlg) = Sheets("Factures1").Range("a133")
    .Range("aem" & dlg) = Sheets("Factures1").Range("b133")
    .Range("aen" & dlg) = Sheets("Factures1").Range("c133")
    .Range("aeo" & dlg) = Sheets("Factures1").Range("d133")
    .Range("aep" & dlg) = Sheets("Factures1").Range("e133")
    .Range("aeq" & dlg) = Sheets("Factures1").Range("f133")
    .Range("aer" & dlg) = Sheets("Factures1").Range("g133")
    .Range("aes" & dlg) = Sheets("Factures1").Range("a134")
    .Range("aet" & dlg) = Sheets("Factures1").Range("b134")
    .Range("aeu" & dlg) = Sheets("Factures1").Range("c134")
    .Range("aev" & dlg) = Sheets("Factures1").Range("d134")
    .Range("aew" & dlg) = Sheets("Factures1").Range("e134")
    .Range("aex" & dlg) = Sheets("Factures1").Range("f134")
    .Range("aey" & dlg) = Sheets("Factures1").Range("g134")
    .Range("aez" & dlg) = Sheets("Factures1").Range("a135")
    .Range("afa" & dlg) = Sheets("Factures1").Range("b135")
    .Range("afb" & dlg) = Sheets("Factures1").Range("c135")
    .Range("afc" & dlg) = Sheets("Factures1").Range("d135")
    .Range("afd" & dlg) = Sheets("Factures1").Range("e135")
    .Range("afe" & dlg) = Sheets("Factures1").Range("f135")
    .Range("aff" & dlg) = Sheets("Factures1").Range("g135")

 Call envoyefactureaarchive1

End With

End Sub

re,

tu auras de l'aide des spécialistes ici (pas moi donc ) si tu envoies une copie identique et anonymisée au besoin de ton fichier en le zippant ou en le mettant sur wetransfer et en donnant le lien ici

A vue de nez, une (des) boucle(s) devrait t'aider

P.