Réinitialiser un tableau

Bonjour,

Je suis novice en terme de code VBA. Serait-il possible d'avoir un petit coup de pouce s'il vous plait?

A la base, j'ai une interface qui permet de remplir une multitude de tableaux selon une base de données.

Je souhaiterais donc, à l'aide d'un code VBA, réinitialiser ces tableaux aillant une nombre de lignes complètement aléatoire.

Ces tableaux ont pour nom le sous-groupe affiché dans la première colonne.

Dans le fichier ci-joint, j'ai mis un exemple de tableau nommé comme sur mon vrai tableur et un tableau vide: ce que je souhaiterais obtenir à terme.

Je vous remercie d'avance pour aide précieuse.

Gschmutz

bonjour,

peut être comme ci dessous

Bonjour,

A tester.

Cdlt

Option Explicit
Public Sub ReinitialiserTableau()
Dim Ws As Worksheet
Dim ListObj As ListObject
Dim objListRows As ListRows
Dim iRowNumber As Long, i As Long
    Application.ScreenUpdating = False
    'Définit la feuille de calcul
    Set Ws = Worksheets("Feuil1")
    'Définit le tableau dans la feuille de calcul
    Set ListObj = Ws.ListObjects("H4.3")
    'Définit le nombre de lignes du tableau (sans en-entête et le total)
    Set objListRows = ListObj.ListRows
    'Boucle sur les lignes du tableau
    For i = objListRows.Count To 2 Step -1
        'Suppression lignes
        objListRows(i).Delete
    Next
    'On efface les données du tableau
    Range(ListObj).ClearContents
    Set Ws = Nothing: Set ListObj = Nothing: Set objListRows = Nothing
End Sub

C'est au top! Un grand Merci à vous