Private Sub CBValider_Click()
If TBDomaine = "" Then Exit Sub
With Sheets("Matériels")
.Rows("5:5").Insert
fin = 5
'fin = .Range("A" & .Rows.Count).End(xlUp).Row + 1 'au cas ou il faut ajouter les data en fin de tableau
.Range("A" & fin) = TBDomaine
.Range("B" & fin) = TBCode
.Range("C" & fin) = TBClairAbrege
.Range("D" & fin) = TBSGL
.Range("E" & fin) = TBQte
End With
TBDomaine = ""
TBCode = ""
TBClairAbrege = ""
TBSGL = ""
TBQte = ""
Unload Me
End Sub