Formulaire et recherchev

Private Sub Valider_les_données_Click()
Dim L As Integer
    With Sheets("Lavage")
        L = .Range("A" & Rows.Count).End(xlUp).Row + 1
        'Permet de se positionner sur la dernière ligne de tableau NON VIDE
        .Range("A" & L).Value = CInt(TextBox1.Value) 'Insère la donnée de la liste déroulante dans la colonne A
        .Range("B" & L).Value = TextBox2.Value 'Insère la donnée de la textbox1 dans la colonne B
        'et à suivre....
        .Range("I" & L).Value = ComboBox8
        .Range("T" & L).Value = ComboBox128.Value
        .Range("AR" & L).Value = TextBox3.Value
        Unload Me
        Lavage.Show vbModeless
    End With
End Sub

Range("A" & L).Value = TextBox1 'Insère .......... A

If IsNumeric(TextBox1.Value) Then
Range("A" & L).Value = CInt(TextBox1.Value)
Else
Range("A" & L).Value = TextBox1.Value 'Insère ..... A
End If