Insertion automatique de lignes copiées en bas de tableau

Bonjour,

Je suis débutant sur excel, j'ai réussi à récupérer un diagramme de Gantt et à le bricoler un petit peu (je le joins au fichier).

Mon problème peut sembler simple mais me rend fou : je souhaiterai créer une macro qui insère automatiquement un nouveau thème (donc en 6 lignes correspondantes) en bas de mon tableau à chaque fois que j'appuie sur le bouton associé de la maccro.

Pouvez-vous m'aidez svp?

Merci beaucoup

Bonjour Zeta et bienvenu, bonjour le forum,

Essaie comme ça (il ne manque que les couleurs...) :

Sub Macro1()
Dim PS As Worksheet 'déclare la variable PS (Onglet ProjectSchedule)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)

Set PS = Worksheets("ProjectSchedule") 'définit l'onglet PS
DL = PS.Cells(Application.Rows.Count, "B").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne B de l'onglet PS
PS.Rows(8 & ":" & 13).Copy 'copy les lignes 8 à 13 de l'onglet PS
PS.Cells(DL - 1, "A").Insert 'insère les lignes copièes dans la cellule ligne DL - 1 colonne A
End Sub

Super ! ça marche

Merci ThauThème ;)