Salut,
Dans ta macro Ajout, tu dois modifier la ligne ci-dessous de cette manière :
'suppression des éventuels nombre incrémentés dans les colonnes D à AG
For I = 4 To Plg1.Columns.Count - 5 Step 2: .Cells(Lig + 1, I).Value = "": Next I
à la place de l'ancinne ligne
For I = 4 To Plg1.Columns.Count Step 2: .Cells(Lig + 1, I).Value = "": Next I
Cordialement.