Insérer une ligne en fin de tableau d'un bouton

Bonjour,

Sur la feuille "5 ateliers", j'ai essayé de recopier un bouton "Insérer ligne" provenant d'une autre feuille.

Problème : le code VBA ci-dessous permet d'insérer n'importe où dans le tableau mais je ne veux pas car ça m'a engendré des erreurs dans mes MFC et sur les valeurs de cellules.

Sauriez-vous modifier ce code pour que l'insertion se fasse automatiquement sur la dernière ligne (dans l'exemple, ligne 12) ==>

Sub Inserer_Ligne_5ateliers()
     Dim LO    As ListObject
     On Error Resume Next
     Set LO = ActiveCell.ListObject
     On Error GoTo 0

     If LO Is Nothing Then
          MsgBox "Vous n'étes pas dans le tableau" & vbLf & "Impossible de savoir quelle ligne", vbInformation, "Insérer ligne"
     Else
          i = Application.Max(2, ActiveCell.Row - LO.Range.Row)
          With LO
               .Parent.Unprotect MdP
               .Range.AutoFilter 1
               .Range.AutoFilter
               LO.ListRows.Add i             'remplacé 2 par i *******************
               Application.Goto .DataBodyRange.Cells(1, 1), 1
               Application.Goto .DataBodyRange.Cells(i, 1)     'remplacé 2 par i *******************
               Proteger
          End With
     End If
End Sub

Sur le bouton "Débloquer ou Quitter", tapez vodoraix pour tt débloquer.

Et mot de passe pour débloquer les feuilles ==> seb

MErci beaucoup de vous intéresser à ce sujet

Bonne journée

Bonsoir Bart' & merci beaucoup... C'est parfait

Désolé, je rentre tt juste du travail...

Merci encore Bart'

Je vais essayer de me calquer sur ton code pour faire pareil sur les 2 autres feuilles "Tirs à 9 & 13 Cibles"

Bonne soirée Bart'