Private Sub UserForm_Initialize()
[B40:B44] = "" 'RAZ
On Error Resume Next
With Sheets(CStr(ActiveCell(1, 2)))
ThisWorkbook.Names.Add "Cible", .[B15]
ThisWorkbook.Names.Add "XX", Replace(.[H55], ",", ".")
ThisWorkbook.Names.Add "CherchePoids2", [Left(XX,Find(" ",XX)-1)*1]
ThisWorkbook.Names.Add "CherchePoids", [Index(Tab_Poids_Chabas,Match(Left(Cible, 2)*1,Dept_Chabas,0),Match(CherchePoids2,Poids_Chabas,1))]
Label1 = "Gefco" & vbLf & [CherchePoids+0.55]
Label2 = "Chabas" & vbLf & [IF(CherchePoids2<100,CherchePoids,CherchePoids2*CherchePoids/100)+2.74]
[B40] = [CherchePoids+0.55]
[B41] = .[H55]
[B42] = [CherchePoids]
[B43] = [IF(CherchePoids2<100,CherchePoids,CherchePoids2*CherchePoids/100)+2.74]
[B44] = [CherchePoids2]
End With
End Sub