XL 2019 VBA consolidation de plusieurs tableaux

[Lion54]

Bonsoir à tous,

Je commence dans la programation VBA. J'aurais besoin de votre aide svp si qqun veut bien m aiser.
J'ai un fichier Excel avec plusieurs onglets qui contiennent chacun un tableau au format identique. J'aurais donc besoin de programmer de manière automatique via Macro les étapes suivants:
1) Copier le tableau qui se trouve dans tous les onglets verts et les coller dans l'onglet intitulé 'Reporting' l'un à la suite de l'autre, l'entete doit etre repris qu'une seule fois sur la première ligne de l'onglet 'reporting'. Le but étant de créer un seul tableau qui sera utilisé par la suite pour faire un tableau croisé dynamique.
2) Supprimer les onglets D à F de J à P
3) mettre en forme de manière esthétique

j'ai mis le fichier en PJ.

Pouvez svp m'aider

En vous remerciant

 

[Lion54]

J'ai trouvé .
J ai juste renommé sheets 1 par reporting 2 et ca fonctionne.
Peux tu stp me dire à quelle niveau dois je qjouter le commentaire : ".Cells(ligneCible, "a").PasteSpecial xlPasteFormats"?

J ai fait comme suit mais ca ne fonctionne pas.
Set plage = F.Range("a" & premLig & ":u" & derLig) 'plage à copier
'première ligne vide de la feuille "Reporting" (dernière ligne +1)
ligneCible = .Cells(.Rows.Count, "a").End(xlUp).Row + 1
If Combien = 1 Then ligneCible = 1 'si première copie, on collera vers la ligne 1
plage.Copy .Cells(ligneCible, "a").PasteSpecial xlPasteFormats 'la copie
End If

Merci encore pour ton aide

 

[Lion54]

Hello la pomme,
J espere aue tu vas bien. J aurais juste besoin d un dernier petit coup de pouce si tu veux bien. Sur une requete êux tu stp m aider? Si oui je t envoie ma requete.

 

[mapomme]

Re,

Oui mais ce sera pour ce soir au plus tôt...

 

[Lion54]

C est bon; je viens de trouver la solution à mon probleme
En te remerciant.