Ajout d'une ligne

Voici le fichier modifié, j'ai affecté les macros à vos boutons. Cette fois j'ai gardé votre présentation initiale :

https://www.cjoint.com/c/EJohPlEiiFf

Si vous ne parvenez pas à l'ouvrir, allez dans Visual Basic, créez un module et coller le code suivant :

Sub AJOUTER_LIGNE1()

Dim DL As Long

DL = 1
Do While Not IsEmpty(Range("A" & DL))
    DL = DL + 1
Loop

Rows(DL).Insert Shift:=xlDown

Range(Cells(DL, 1), Cells(DL, 2)).Merge

    With Range(Cells(DL, 1), Cells(DL, 4)).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With

End Sub

Sub AJOUTER_LIGNE2()

Dim DL As Long, DL2 As Long

DL = 1
Do While Not IsEmpty(Range("A" & DL))
    DL = DL + 1
Loop

DL2 = DL + 5
Do While Not IsEmpty(Range("A" & DL2))
    DL2 = DL2 + 1
Loop

Rows(DL2).Insert Shift:=xlDown

Range(Cells(DL2, 1), Cells(DL2, 2)).Merge

    With Range(Cells(DL2, 1), Cells(DL2, 4)).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With

End Sub

Sub AJOUTER_LIGNE3()

Dim DL As Long

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row

Rows(DL + 1).Insert Shift:=xlDown

Range(Cells(DL + 1, 1), Cells(DL + 1, 2)).Merge

    With Range(Cells(DL + 1, 1), Cells(DL + 1, 4)).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With

End Sub

Vous n'avez plus qu'à affecter vos macros à vos boutons.

Cordialement.

Pas de nouvelle... De rien quand même...

Bonjour,

Sans aucun problème. Si vous nommez vos tableaux, vous pouvez ensuite les utiliser dans votre code de la manière suivante :

Range("le nom du tableau").Columns(4)

Par exemple vous indique la colonne 4 du tableau "le nom du tableau"

Définissez les variables "dernière ligne" ainsi :

DL = Range("le nom du tableau").Rows.Count

Du coup vous pourrez ensuite mettre exactement le même code ainsi :

DL = 1
Do While Not IsEmpty(Range("la colonne" & DL))
    DL = DL + 1
Loop

Rows(DL).Insert Shift:=xlDown

Range("le nom du tableau").Range((Cells(DL, 1), Cells(DL, 2)).Merge

    With Range("le nom du tableau").Range(Cells(DL, 1), Cells(DL, 4)).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With

Si vous avez besoin d'aide, joignez un fichier exemple avec des noms de tableaux.

Cordialement.