VBA Tableau dynamique

Bonjour,

Je cherche à créer un tableau "dynamique" en VBA ;

j'ai une feuille de calcul qui est la base de données et augmente tous les jours. j'ai créé un macro qui récupère des données en fonction d'un filtre et copie/colle sur une autre feuille. De cette nouvelle feuille de calcul je souhaite créer un tableau mais étant donnée que la hauteur du tableau dépendra des données dans la feuille base de données, je ne sais pas comment écrire ça en VBA :

J'ai actuellement pour faire simple :

Sheets("BdD contrôles").Select

ActiveSheet.Range("C1").AutoFilter Field:=2, Criteria1:= _

"Rapport"

ActiveSheet.ListObjects("Tableau3").Range.Select

Selection.Copy

Sheets("Suivi_Rapport").Select

Range("A1").Select

ActiveSheet.Paste

Application.CutCopyMode = False

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$G$9"), , xlYes).Name = _

"Tableau6"

J'aimerai du coup que le tableau commence A1 mais après dépendrai de la dernière cellule non vide dans la colonne G.

Pouvez vous m'aider à comprendre ?

Merci à vous,

Bonjour,

Cordialement

Bonjour,

Ci-joint le fichier simplifié,

Merci,

Re,

Prenez ce code

Sub Suivi()
' Suivi Macro
Dim dlg As Integer
With Sheets("BdD")
    Sheets("BdD").Range("C1").AutoFilter Field:=2, Criteria1:="Rapport"
    dlg = Sheets("Suivi").Range("G" & Rows.Count).End(xlUp).Row
    .ListObjects("Tabl1").DataBodyRange.Copy Sheets("Suivi").Range("A" & dlg)
    Application.CutCopyMode = False
End With
End Sub

Cordialement

PS : lorsque vous postez un code, pensez à utiliser les balises de code disponibles en cliquant sur l'icone approprié dans la barre de menu

Bonjour,

Super, merci beaucoup ! ça fonctionne

Je prends note.