Private Sub CommandButton1_Click()
With Sheets(1)
drligne = .[k:g].Find("*", , , , 1, 2).Row + 1
.Range("g" & drligne) = ComboBox2
.Range("h" & drligne) = ComboBox1
.Range("i" & drligne) = TextBox1
.Range("j" & drligne) = TextBox2
.Range("k" & drligne) = TextBox4
End With
Call raffraichir
End Sub