Pb funcion.sum

bonjour a tous

mon Pb est simple je doit calculer dans mon usf une ligne (De D à O) le total colonne P.

lorsque je valide la 1ère ligne la somme est correct mais lorsque j'inserère une nouvelle ligne, il m'affiche la somme de P8 + P9.

j'utilise le code suivant pourles calcul.

Private Sub CommandButton1_Click()
Dim I As Integer
Dim Résultat As Integer
Dim Mes, reponse As String
If TextBox1 = "" Then
Mes = "Vous devez saisir le Service"
response = MsgBox(Mes, vbOKOnly + vbInformation, "Erreur de saisie")
GoTo fin
Else
premlivide = Columns(1).Find("", [A200], , , xlByRows, xlNext).Row
I = Worksheets("Communication").Range("A200").End(xlUp).Row
Range(Cells(I, 1), Cells(I, 16)).Copy Destination:=Cells(I + 1, 1)
NumFiche = NumFiche + 1
Range("Q" & I + 1).Value = NumFiche
Worksheets("Communication").Range("A" & I + 1).Value = TextBox1.Value
Worksheets("Communication").Range("D" & I + 1).Value = TextBox2.Value
Worksheets("Communication").Range("E" & I + 1).Value = TextBox3.Value
Worksheets("Communication").Range("F" & I + 1).Value = TextBox4.Value
Worksheets("Communication").Range("G" & I + 1).Value = TextBox5.Value
Worksheets("Communication").Range("H" & I + 1).Value = TextBox6.Value
Worksheets("Communication").Range("I" & I + 1).Value = TextBox7.Value
Worksheets("Communication").Range("J" & I + 1).Value = TextBox8.Value
Worksheets("Communication").Range("K" & I + 1).Value = TextBox9.Value
Worksheets("Communication").Range("L" & I + 1).Value = TextBox10.Value
Worksheets("Communication").Range("M" & I + 1).Value = TextBox11.Value
Worksheets("Communication").Range("N" & I + 1).Value = TextBox12.Value
Worksheets("Communication").Range("O" & I + 1).Value = TextBox13.Value
Résultat = WorksheetFunction.Sum(Range("D:O"))
MsgBox "Total" & Résultat, 0, "Résultats"
fin:
End If
End Sub
je pense que sa bloque sur la ligne Résultat
si quelqu'un à la réponse grand merci d'avance (pitetre que je suis un bouricot mais je cherche depuis pas mal de temps)

2ème prb j'affecte un numéro automatique a mes lignes. tout se passe bien, il note bien 1, 2, 3, etc, mais lorsque je sort de l'USF, et que j'y revient après il reprend la numérotation à 1

merci d'avance @+

xavier