Bonjour Vince,
Est-ce que ce code fait l'affaire ?
Private Sub CommandButton1_Click()
Range("Traité_par").Rows(i_cde) = ComboBox2.Value
Range("Action").Rows(i_cde) = TextBox1.Value
Range("Statut_litige").Rows(i_cde) = ComboBox3.Value
With Sheets("Historique litiges").ListObjects("Tableau1")
If .ListRows.Count = 0 Then
Range("Tableau1[[#Headers],[Nom]]").Offset(1, 0) = 1
Range("Tableau1[[#Headers],[Nom]]").Offset(1, 0) = ""
End If
If .ListRows.Count = 1 And .ListRows(1).Range.Cells(1, 1) = "" Then
Set LignTablo = Sheets("Historique litiges").ListObjects("Tableau1").ListRows(1)
Else
Set LignTablo = Range("Tableau1").ListObject.ListRows.Add(AlwaysInsert:=True)
End If
End With
'Code pour ecrire les enregsitrements
With LignTablo.Range
.Cells(1, 1) = ComboBox1.Value ' numéro de commande
.Cells(1, 3) = ComboBox2.Value ' Actuellement traité par
.Cells(1, 4) = TextBox1.Value ' Action menée afin de le regler
.Cells(1, 5) = ComboBox3.Value ' Statut du litige
End With
End Sub