Erreur 13

    With Worksheets("Rep")
        L = .Range("c65536").End(xlUp).Row + 1
        .Range("C" & L).Value = ComboBox1
        .Range("D" & L).Value = ListBox1.List(ListBox1.ListIndex, 0)
        .Range("E" & L).Value = TextBox2
        .Range("F" & L).Value = TextBox4
        .Range("G" & L).Value = TextBox5
        .Range("H" & L).Value = TextBox3
    End With

Private Sub CommandButton1_Click()
    Dim lig As Integer, sup As Integer
    
    lig = ListBox1.List(ListBox1.ListIndex, 3)
    Worksheets("Rep").Rows(lig).Delete
    
    sup = 0
    sup = Sheets("Bienvenue").Cells.Find(ListBox1.List(ListBox1.ListIndex, 4), LookAt:=xlWhole).Row    
If sup <> 0 Then
        Sheets("Bienvenue").Rows(sup).Delete
    End If
 
    With Worksheets("Histo_Mouv")
        L = .Range("C65536").End(xlUp).Row + 1
        .Range("C" & L).Value = ComboBox1
        .Range("D" & L).Value = ListBox1.List(ListBox1.ListIndex, 1)
        .Range("E" & L).Value = "Retour de Rép"
        .Range("I" & L).Value = TextBox1
        .Range("K" & L).Value = TextBox2
        .Range("L" & L).Value = CSng(TextBox3)
        .Range("F" & L).Value = Format(Date, "dd/mm/yyyy")
        .Range("H" & L).Value = " " 'date d'envois
        .Range("J" & L).Value = " " 'Prix
    End With