insertion de ligne a partir de la dernière lingne non vide

salut à tous

j'ai encor un petit problème qui doit a mon avis etre basic a résoudre pourtant je trouve po la solution.

voila mon problème j'insère à l'aide d'un USF et de texbox des ligne dans une feuille tout se passe bien elle s'incère les une sous les autres sans problème toutefois lorsque j'enregistre, l'insertion ne se fait plus a partir de la dernière ligne enregistrer mais il reprend depuis le début comment pourais-je me dépatouiller de tout ça.

ci dessous le code que j'utilise

Private Sub CommandButton1_Click() 'enregistrer
ActiveWorkbook.Save
Unload Liste_absent
Load Menu_Moyens
Menu_Moyens.Show
End Sub

Private Sub CommandButton2_Click() 'valider
Dim I As Integer
I = Worksheets("Liste_absent").Range("A200").End(xlUp).row
Range(Cells(I, 1), Cells(I, 7)).Copy Destination:=Cells(I + 1, 1)
Worksheets("Liste_absent").Range("A" & I + 1).Value = TextBox1.Value
Worksheets("Liste_absent").Range("B" & I + 1).Value = TextBox2.Value
Worksheets("Liste_absent").Range("C" & I + 1).Value = TextBox3.Value
Worksheets("Liste_absent").Range("D" & I + 1).Value = TextBox4.Value
Worksheets("Liste_absent").Range("E" & I + 1).Value = TextBox5.Value
Worksheets("Liste_absent").Range("F" & I + 1).Value = ComboBox2.Value
End Sub

si quelqu'un à une réponse

merci d'avance

xavier