Sub Ajouter()
Dim Form As Worksheet: Set Form = Sheets("Formulaire")
Dim Base As Worksheet: Set Base = Sheets("BDD")
Dim Rng As Range
' On se positionne sur la ligne du produit dans la base
' pour en récupérer la référence et le prix
Set Rng = Base.Columns(3).Find(Form.[D2])
If Not Rng Is Nothing Then ' devrait normalement toujours être vrai
Lib = Rng
Ref = Base.Range("A" & Rng.Row)
Spx = Base.Range("AH" & Rng.Row)
' On travaille la table Camion
Set Rng = [Camion[fk_product]].Find(Ref)
If Rng Is Nothing Then ' Ajout d'une nouvelle ligne
[Camion].ListObject.ListRows.Add AlwaysInsert:=True
Row = [Camion].ListObject.ListRows.Count...