Private Sub CommandButton1_Click()
Dim vrech As Range
Dim Masse As Double, Surtaxe As Double
Dim Tourne As Double, Prix As Double, Différence As Double
'
'Mémorise la masse du produit
Masse = CDbl(Replace(Me.TextBox1.Value, ".", ","))
'
'Trouve le plus proche poids inférieur
Do
For Tourne = 250 To 0 Step -0.5
If Tourne < Masse Then
'Recherche dans la colonne Poids la valeur de la masse
Set vrech = Sheets("Shippingprice").Columns("A:A").Find(Tourne, lookat:=xlWhole, searchdirection:=xlPrevious)
If Not vrech Is Nothing Then
Prix = vrech.Offset(0, 1).Value
'Surtaxe
Différence = Masse - Tourne
Surtaxe = Différence / 0.5 * vrech.Offset(2, 1).Value
Exit For
End If
End If
Next Tourne
Loop Until Prix <> 0 Or Tourne = -0.5
If Tourne = -0.5 And Prix = 0 Then MsgBox "Erreur"
Me.TextBox2.Value = Prix + Surtaxe
End Sub