Private Sub ComboBox1_Change()
'A chaque changement de la combobox les deux textbox suivantes vont prendre les valeurs
'trouver dans la feuille "Papiers"
Dim vpapier As Range
With Sheets("Papiers")
Set vpapier = .Columns("a:a").Find(Me.ComboBox1.Value)
If Not vpapier Is Nothing Then Me.Tbxgr.Value = vpapier.Offset(0, 1).Value
If Not vpapier Is Nothing Then Me.Tbxprx.Value = vpapier.Offset(0, 2).Value
End With
Exit Sub