Bonjour tout le monde

mon projet avance petit à petit

Actuellement une macro me recopie toutes les données de ma feuille de calcul vers une autre feuille

Mon desir serait de pouvoir ajouter une page supplementaire dans mes devis car souvent les lignes actuelles sont insuffisantes.

Mon probleme est que quand je veux recopier j'ai un message qui me dit

" Trop de caractere de continuité de ligne"

au départ et ce qui va tres bien :

Sub Transfert()
Dim Ligne As Long
Dim colonne As Long
Dim Cellule As Range
Dim Lg
Dim Derli As Long
Dim i As Long, sStr As String, Ar() As String
'Application.ScreenUpdating = False
    Sheets("SAISIE").Select
    Sheets("ShArchive").Visible = True

    sStr = "I6,I5,C12,G8,H9,G10,h12,B15,C15,H15,I15,J15,K15," & _
           "B16,C16,H16,I16,J16,K16," & _
           "B17,C17,H17,I17,J17,K17,B18,C18,H18,I18,J18,K18," & _
           "B19,C19,H19,I19,J19,K19,B20,C20,H20,I20,J20,K20,B21,C21,H21,I21,J21,K21," & _
           "B22,C22,H22,I22,J22,K22,B23,C23,H23,I23,J23,K23,B24,C24,H24,I24,J24,K24," & _
           "B25,C25,H25,I25,J25,K25,B26,C26,H26,I26,J26,K26,B27,C27,H27,I27,J27,K27," & _
           "B28,C28,H28,I28,J28,K28,B29,C29,H29,I29,J29,K29,B30,C30,H30,I30,J30,K30," & _
           "B31,C31,H31,I31,J31,K31,B32,C32,H32,I32,J32,K32,B33,C33,H33,I33,J33,K33," & _
           "B34,C34,H34,I34,J34,K34,B35,C35,H35,I35,J35,K35,B36,C36,H36,I36,J36,K36," & _
           "B37,C37,H37,I37,J37,K37,B38,C38,H38,I38,J38,K38,B39,C39,H39,I39,J39,K39," & _
           "B40,C40,H40,I40,J40,K40,B41,C41,H41,I41,J41,K41,B42,C42,H42,I42,J42,K42," & _
           "B43,C43,H43,I43,J43,K43,B44,C44,H44,I44,J44,K44,B45,C45,H45,I45,J45,K45," & _
           "B46,C46,H46,I46,J46,K46,B47,C47,H47,I47,J47,K47,B48,C48,H48,I48,J48,K48," & _
           "B49,C49,H49,I49,J49,K49,B50,C50,H50,I50,J50,K50,B51,C51,H51,I51,J51,K51," & _
           "B52,C52,H52,I52,J52,K52,J54,B55,B56,B57," & _
           "C55,C56,C57,D55,D56,D57,F58,F59,J55,J56,J57,J58,j59"
   
    Ar = Split(sStr, ",")
    Ligne = Worksheets("ShArchive").Range("A" & Rows.Count).End(xlUp).Row + 1

    Lg = Application.Match(Range(Ar(0)), Sheets("ShArchive").Range("A1:A" & Ligne), 0)
  
    ' Si erreur : Pas de doublon
    ' sinon Lg contient la ligne en double
    If Not IsError(Lg) Then
  
      
        Ligne = Lg
      
    End If
  
    ' Remplit les colonnes
    For i = LBound(Ar) To UBound(Ar)
        colonne = colonne + 1
        Worksheets("ShArchive").CellS(Ligne, colonne) = Worksheets("SAISIE").Range(Ar(i))
    Next i
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

j'aimerai pouvoir etendre cette sauvegarde jusqu'a:

sStr = "I6,I5,C12,G8,H9,G10,h12,B15,C15,H15,I15,J15,K15," & _
           "B16,C16,H16,I16,J16,K16," & _
           "B17,C17,H17,I17,J17,K17,B18,C18,H18,I18,J18,K18," & _
           "B19,C19,H19,I19,J19,K19,B20,C20,H20,I20,J20,K20,B21,C21,H21,I21,J21,K21," & _
           "B22,C22,H22,I22,J22,K22,B23,C23,H23,I23,J23,K23,B24,C24,H24,I24,J24,K24," & _
           "B25,C25,H25,I25,J25,K25,B26,C26,H26,I26,J26,K26,B27,C27,H27,I27,J27,K27," & _
           "B28,C28,H28,I28,J28,K28,B29,C29,H29,I29,J29,K29,B30,C30,H30,I30,J30,K30," & _
           "B31,C31,H31,I31,J31,K31,B32,C32,H32,I32,J32,K32,B33,C33,H33,I33,J33,K33," & _
           "B34,C34,H34,I34,J34,K34,B35,C35,H35,I35,J35,K35,B36,C36,H36,I36,J36,K36," & _
           "B37,C37,H37,I37,J37,K37,B38,C38,H38,I38,J38,K38,B39,C39,H39,I39,J39,K39," & _
           "B40,C40,H40,I40,J40,K40,B41,C41,H41,I41,J41,K41,B42,C42,H42,I42,J42,K42," & _
           "B43,C43,H43,I43,J43,K43,B44,C44,H44,I44,J44,K44,B45,C45,H45,I45,J45,K45," & _
           "B46,C46,H46,I46,J46,K46,B47,C47,H47,I47,J47,K47,B48,C48,H48,I48,J48,K48," & _
           "B49,C49,H49,I49,J49,K49,B50,C50,H50,I50,J50,K50,B51,C51,H51,I51,J51,K51," & _
           "B52,C52,H52,I52,J52,K52,B53,C53,H53,I53,J53,K53,B54,C54,H54,I54,J54,K54," & _
           "B55,C55,H55,I55,J55,K55,B56,C56,H56,I56,J56,K56,B57,C57,H57,I57,J57,K57," & _
           "B58,C58,H58,I58,J58,K58,B59,C59,H59,I59,J59,K59,B60,C60,H60,I60,J60,K60," & _
           "B61,C61,H61,I61,J61,K61,B62,C62,H62,I62,J62,K62,B63,C63,H63,I63,J63,K63," & _
           "B63,C63,H63,I63,J63,K63,B64,C64,H64,I64,J64,K64,B65,C65,H65,I65,J65,K65," & _
           "B66,C66,H66,I66,J66,K66,B85,C85,H85,I85,J85,K85,B86,C86,H86,I86,J86,K86," & _
           "B87,C87,H87,I87,J87,K87,B88,C88,H88,I88,J88,K88,B89,C89,H89,I89,J89,K89," & _
           "B90,C90,H90,I90,J90,K90,B91,C91,H91,I91,J91,K91,B92,C92,H92,I92,J92,K92," & _
           "B93,C93,H93,I93,J93,K93,B94,C94,H94,I94,J94,K94,B95,C95,H95,I95,J95,K95," & _
           "B95,C95,H95,I95,J95,K95,B96,C96,H96,I96,J96,K96,B97,C97,H97,I97,J97,K97," & _
           "B98,C98,H98,I98,J98,K98,B99,C99,H99,I99,J99,K99,B100,C100,H100,I100,J100,K100," & _
           "B101,C101,H101,I101,J101,K101,B102,C102,H102,I102,J102,K102,B103,C103,H103," & _
           "I103,J103,K103,B104,C104,H104,I104,J104,K104,B105,C105,H105,I105,J105,K105," & _
           "B106,C106,H106,I106,J106,K106,B107,C107,H107,I107,J107,K107,B108,C108,H108," & _
           "I108,J108,K108,B109,C109,H109,I109,J109,K109,B109,C109,H109,I109,J109,K109," & _
           "B110,C110,H110,I110,J110,K110,B111,C111,H111,I111,J111,K111,B112,C112,H112," & _
		   "I112,J112,K112,B113,C113,H113,I113,J113,K113,B114,C114,H114,I114,J114,K114," & _
           "B115,C115,H115,I115,J115,K115,B116,C116,H116,I116,J116,K116,B117,C117,H117," & _
           "I117,J117,K117,B118,C118,H118,I118,J118,K118,B119,C119,H119,I119,J119,K119," & _
           "B121,C121,H121,I121,J121,K121,B122,C122,H122,I122,J122,K122,B120,C120,H120," & _
           "I120,J120,K120,J124,B125,B126,B127," & _
           "C125,C126,C127,D125,D126,D127,F128,F129,J125,J126,J127,J128,j129"

y a t'il un moyen de contourner cette erreur ?

Merci et bon dimanche à tous