Bonjour à tous,
Actuellement j'utilise ce code :
Private Sub Txt_code_Change()
Dim DL As Integer
Dim list_nombre As Integer
Dim ligne As Integer
If Txt_code <> "" Then
Sheets(4).ListObjects(1).ListRows.Add
DL = Sheets(4).Range("b9999").End(xlUp).Row
Sheets(4).Range("b" & DL) = Me.Txt_code...