Recherche de valeur à partir d'un textbox USERFORM

Bonjour,

Je viens de faire un code qui me permet d'afficher des valeurs dans plusieurs textboxs (nom fournisseur, téléphone, fax, etc) à partir d'une valeur d'un textbox (numéro de fourniseur), la valeur affichée est variable. Cependant, ce code ne fonctionne pas correctement, si la valeur affiché dans le textbox (numérode fournisseur) est modifié, la saisie automatique ne se fait plus. Je souhaite optimiser ce code. Je vous met à disposition le code en question.

Dim w As Integer
Dim cherche As String
cherche = Me.txtNumerofournisseur2.Value
w = feuille5.Cells.Find(What:=cherche, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
txtnomfournisseur2 = Range("I" & w).Offset(0, 0).Value
txtnomdefacturation2 = Range("I" & w).Offset(0, 1).Value
txtTelephonefournisseur2 = Range("I" & w).Offset(0, 9).Value
txtFaxfournisseur2 = Range("I" & w).Offset(0, 10).Value
txtEmailfournisseur2 = Range("I" & w).Offset(0, 11).Value
txtSitewebfournisseur2 = Range("I" & w).Offset(0, 12).Value
txtCodepostalfournisseur2 = Range("I" & w).Offset(0, 6).Value
txtVillefournisseur2 = Range("I" & w).Offset(0, 7).Value
txtPaysfournisseur2 = Range("I" & w).Offset(0, 8).Value
txtRuefournisseur2 = Range("I" & w).Offset(0, 3) & Range("I" & w).Offset(0, 4) & Range("I" & w).Offset(0, 5)

Merci d'avance pour votre aide.

Cordialement.

Un petit fichier joint ?

Voici le fichier correspondant