Dim x As Range
'teste si ta texbox "nomclient" n'est pas vide
If NomClient.Value <> "" Then
'bloc pour identifier la feuille
With Sheets("Feuil3")
'recherche dans la feuille identifiée phus haut, de A8 à la dernière cellule non vide de la colonne
'lavaleur contenue dans ta texbox "nomclient", et alimentation de x (variable de type range) le cas échéant
Set x = .Range("A8:A" & .Range("A65536").End(xlUp).Row).Find(NomClient.Value, , xlValues, xlWhole, , , False)
'si x n'est pas vide, autrement dit si la recherche a aboutie
If Not x Is Nothing Then
'mois.listindex renvoie le numéro de l'élément sélectionné, en l'occurence ton mois, on vérifie d'abord
's'il est bien présent, différent de -1, sachant que le 1er élément porte le numéro d'index 0,
'd'ou le décalage apporté à la cellule x, celle déterminée par la recherche, janvier étant en colonne b,
'ce qui nous donne toujours un décalage de 2 "x.Offset(0, Mois.ListIndex + 2". et on envoie dans la
'cellule ainsi déduite la conversion en donnée double (cdbl) de ta textbox PrixUTTC3
If Mois.ListIndex <> -1 Then x.Offset(0, Mois.ListIndex + 2).Value = CDbl(PrixUTTC3.Value)
End If
End With
End If