Jocelyn, Hervé,
J'aurai encore besoin d'un peu d'aide, j'ai modifié le code afin d'afficher un message de refus s'il manque le 1er critère. Pas trop de problème jusque là. Le soucis étant qu'il m'insert quand même la ligne incomplète ou une ligne vide si tout est vide.
Voici le code, comment puis-je le modifier :
Private Sub Boutonvalider_Click()
Dim l As Integer
If TextDésignation = "" Then
Refus.Show
End If
l = Sheets("feuil1").Range("a65000").End(xlUp).Row + 1
With Sheets("feuil1")
.Range("a" & l).Value = TextDésignation
.Range("b" & l).Value = TextClient
.Range("c" & l).Value = TextRéférence
.Range("d" & l).Value = TextCoût
.Range("e" & l).Value = TextType
End With
TextDésignation = ""
TextClient = ""
TextRéférence = ""
TextCoût = ""
TextType = ""
Ajout_référence.Hide
End Sub
Merci de votre aide.
Jacques