Sub form3()
ThisWorkbook.Names.Add "Y", Replace([P11], ",", ".") 'nom défini
ThisWorkbook.Names.Add "CherchePoids", [Index(Tab_Poids_Chabas,Match(Left(B15, 2)*1,Dept_Chabas,0),Match(Left(Y,Len(Y)+1-Find(" ",Y))*1,Poids_Chabas,1))]
ThisWorkbook.Names.Add "CherchePoids2", [Left(Y, Len(Y) + 1 - Find(" ", Y)) * 1]
[E14] = [IF(CherchePoids2<100,CherchePoids,CherchePoids2*CherchePoids/100)+2.74]
'[E14] = [IF(CherchePoids2<100,12,15)]
[E15] = [CherchePoids]
[E16] = [CherchePoids2]
[E18] = [Match(Left(B15, 2)*1,Dept_Chabas,0)]
[E19] = [Match(Left(Y,Len(Y)+1-Find(" ",Y))*1,Poids_Chabas,1)]
[E20] = [Left(Y,Len(Y)+1)]
End Sub