Bonjour jad73,
Pour que le code agisse seulement dans la feuille voulue, il suffit de remplacer Feuil1
dans le code ci-dessous, par le nom de la feuille qui contient la BDD.
Il agit maintenant sur A2:J2 seulement.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, cancel As Boolean)
Worksheets("Feuil1").Activate
Range("A2:J2").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Insert Shift:=xlDown
Range("A2").Select
End Sub