Private Sub CommandButton1_Click()
Dim oLo As Excel.ListObject, oNLig As ListRow
Set oLo = Sheets("Feuil1").ListObjects(1)
With oLo
If IsEmpty(.Range.Cells(2, 1)) Then
.Range.Cells(2, 1).Resize(, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4)
Else
Set oNLig = .ListRows.Add(alwaysinsert:=True)
oNLig.Range.Cells(1, 1).Resize(, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4)
End If
End With
End Sub