Bonsoir,
Voici mon petit bout de code pour lequel j'ai un problème :
Dim cible As Date, valtrouve As Integer
cible = UserForm1.TextBox1.Value
valtrouve = Application.WorksheetFunction.VLookup(cible, Range("A4:B100"), 2, 0)
MsgBox valtrouve & " est la valeur trouvée!"
Ce code...