UserForm action sur la feuille

Private Sub CommandButton1_Click()
With Range("E2:E500")
    .Value = Me.TextBox1
    .Offset(, 1).Value = Me.TextBox2
    .Offset(, 2).Value = 0
End With
Unload Me
End Sub

Private Sub CommandButton1_Click()
    Dim derLig As Long
    
    With Worksheets("Résultat")
        ' Dernière ligne en colonne E
        derLig = .Range("E" & Cells.Rows.Count).End(xlUp).Row
        
        .Range("E2:E" & derLig).Value = TextBox1.Value
        .Range("F2:F" & derLig).Value = TextBox2.Value
        .Range("G2:G" & derLig).Value = 0
    End With
    Unload UserForm1
End Sub