Copier des données dans la dernière ligne vide

Sub repartir_grandlivre()

Dim compte As String, cpt_cl As Long, Nbre As Integer, Cptr As Integer

Dim Derlig As Integer

Dim Tablo()

Dim Lign As Long









Application.ScreenUpdating = False



With Sheets("Grand livre à date")

     'mémorise la feuille "grandlivre" en mémoire RAM

     Derlig = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne utilisée col A

     T_grandlivre = .Range("A1:I" & Derlig).Value 'creation d'une variable -tableau

     

    '--------------- Répartition dans les feuilles comptes

     For cpt_cl = 1 To 16 ' LE NOMBRE DE compteS

          compte = Choose(cpt_cl, "42123", "42110", "33510", "33505", "33520", "33531", "42104", "33540", "33541", "33511", "33542", "42112", "42113", "42114", "42116", "42118")

          Nbre = Application.CountIf(.Columns("H"), compte)

          '-----collecte des données dans la ligne en cours et mémorisation dans la variable Tablo

          If Nbre > 0 Then ' si je trouve le # de compte ça va être >0

               ReDim Tablo(Nbre, 6) ' nbre = combien il trouve de ligne avec le compte, 6= COL

               lig = 1

               For Cptr = 1 To Nbre

                    lig = .Columns("h").Find(compte, .Cells(lig, "H"), xlValues).Row

                    For Col = 1 To 6

                         Tablo(Cptr, Col - 1) = T_grandlivre(lig, Col)

                    Next

               Next

                    

                 

          '-----restitution et encadrement dans la feuille comptes en cours

               With Sheets(compte)

                  Lign = .Range("a6" & Rows.Count).End(xlUp).Row + 1

                    With .Cells(Lign, "A").Resize(Nbre, 6)

                         .Value = Tablo

                         .Borders.Weight = xlThin

                    End With

               End With

          End If

     Next



Application.ScreenUpdating = True ' Provisoire pour Essai rapidité



End With

End Sub