Re...
Essaie comme ça :
Private Sub CommandButton1_Click()
Dim maligne As Long
Dim maligne2 As Long
Dim cel As Range 'déclare la variable cel
maligne = Sheets("devis").Range("e14").End(xlUp).Row + 1
Sheets("devis").Range("E12") = textbox1.Value
Sheets("devis").Range("E13") = textbox2.Value
Sheets("devis").Range("E14") = textbox3.Value
maligne2 = Sheets("fichier_client").Range("B65536").End(xlUp).Row + 1
'je t'ai mis les trois options, à toi de choisir laquelle tu veux en supprimant ou pas l'apostrophe
'pour le momment seule la première fonctionne
For Each cel In Range("B1:B" & maligne2)
'compare que sur textbox1
If cel.Value = textbox1.Value Then Exit Sub
'compare sur textbox1 et textbox2
'If cel.Value = textbox1.Value And cel.Offset(0, 1).Value = textbox2.Value _
Then Exit Sub
'compare sur textbox1, textbox2 et textbox3
'If cel.Value = textbox1.Value And cel.Offset(0, 1).Value = textbox2.Value _
And cel.Offset(0, 2).Value = textbox3.Value Then Exit Sub
Next cel
Sheets("fichier_client").Range("b" & maligne2) = textbox1.Value
Sheets("fichier_client").Range("c" & maligne2) = textbox2.Value
Sheets("fichier_client").Range("d" & maligne2) = textbox3.Value
Unload UF_client
End Sub
À plus,
Robert