For i = 2 To 40
monlabel = Label(i)
Matxt = TextBox(i).Value
monTrt = Application.WorksheetFunction.VLookup(monlabel, Worksheets(2).Range("A2:B500"), 2)
Do While FeuilleResultat.Cells(IntegrationLigne, 1) <> ""
IntegrationLigne = IntegrationLigne + 1
Loop
If Matxt <> "" Then
FeuilleResultat.Cells(IntegrationLigne, 4).Value = "WP"
FeuilleResultat.Cells(IntegrationLigne, 5).Value = "Transactionnel"
FeuilleResultat.Cells(IntegrationLigne, 6).Value = monlabel
FeuilleResultat.Cells(IntegrationLigne, 7).Value = Matxt
FeuilleResultat.Cells(IntegrationLigne, 8).Value = Application.UserName
FeuilleResultat.Cells(IntegrationLigne, 9).Value = monTrt
FeuilleResultat.Cells(IntegrationLigne, 10).Value = monTrt * Matxt
End If
Next i