Remplir la dernière ligne mais d'un tableau

Bonjour tout le monde,

Voila jusqu'à maintenant j'utilisais un code VBA pour chercher la dernière ligne d'une colonne écrite et puis écrire sur celle en dessous.

avec ce code

Sub Suivi_Factures()

'Tableau de suivi de factures

Sheets("Suivi_Factures").Range("A50000").End(xlUp).Offset(1, 0) = Sheets("Factures").Range("G1")
Sheets("Suivi_Factures").Range("B50000").End(xlUp).Offset(1, 0) = Sheets("Factures").Range("D1")
Sheets("Suivi_Factures").Range("C50000").End(xlUp).Offset(1, 0) = Sheets("Factures").Range("E3")
Sheets("Suivi_Factures").Range("D50000").End(xlUp).Offset(1, 0) = Sheets("Factures").Range("G3")
Sheets("Suivi_Factures").Range("E50000").End(xlUp).Offset(1, 0) = Sheets("Factures").Range("E4")
Sheets("Suivi_Factures").Range("F50000").End(xlUp).Offset(1, 0) = Sheets("Factures").Range("E5")
Sheets("Suivi_Factures").Range("G50000").End(xlUp).Offset(1, 0) = Sheets("Factures").Range("F5")
Sheets("Suivi_Factures").Range("H50000").End(xlUp).Offset(1, 0) = Sheets("Factures").Range("G40")
Sheets("Suivi_Factures").Range("I50000").End(xlUp).Offset(1, 0) = Sheets("Factures").Range("C37")

End Sub

Par contre dès que j'ai voulu mettre en forme avec un tableau pour rendre plus lisible avec des couleurs par ligne cela ne marche plus.

Chose normale car dès qu'il écris la première info sa crais une ligne et ainsi desuite du coup il me met tout mais sur 9 ligne...

Si quelqu'un pourrais m'aider car je lutte merci d'avance.

Bonjour

Tu devrais joindre ton fichier.

Bye !

Voila le fichier,

quand je clic sur le bouton Suivi_Factures sa doit me remplir la feuille suivi_factures mon code marche plus quand c'est un tableaux

j'avais cru voir une fonction DLT pour palier a mon problème mais je ne suis pas un expert en VBA j'ai chercher un peux sur le net pour faire mon outils de gestion

encore merci pour votre aide.

Un essai à tester Te convient-il ?

Option Explicit

Dim ff As Worksheet, fs As Worksheet
Dim n&

Sub Suivi_Factures()

    'Tableau de suivi de factures
    Set fs = Sheets("Suivi_Factures")
    Set ff = Sheets("Factures")

    n = Range("Tableau1").Rows.Count
    n = IIf(Range("Tableau1")(1, 1) = "", n + 3, n + 4)

    fs.Range("A" & n) = Sheets("Factures").Range("G1")
    fs.Range("B" & n) = ff.Range("E3")
    fs.Range("C" & n) = ff.Range("G3")
    fs.Range("D" & n) = ff.Range("E4")
    fs.Range("E" & n) = ff.Range("E5")
    fs.Range("F" & n) = ff.Range("F5")
    fs.Range("H" & n) = ff.Range("G40")
    fs.Range("H" & n) = ff.Range("C37")
End Sub

Bye !

Oui merci Infiniment pas toujours facile quand on connais pas espère sa en aidera d'autre, encore merci beaucoup.