Somme dans première cellule vide

Bonjour,

Après avoir cherché sur ce forum et sur d'autres, il se trouve que je n'ai pas encore trouvé la bonne solution.

Mon problème : Je copie un tableau d'un classeur A de 9 colonnes vers un classeur B identiques. Une fois que cela est fait, je souhaite réaliser, dans mon classeur B, la somme de la colonne H et de la colonne I (le nombre de lignes peut être variables).

Fichier présenté en pièce-jointe, cliquez sur le bouton "Créer fichier DO". Attention, cela provoque le plante d'Excel chez moi!

Bonjour

Modifies les parties surlignées

Lignes à ajouter

Lignes à supprimer

  ' si on n'a pas le statut = 0 sur cette ligne
  If Not (ws1.Range("A" & i)) = 0 Then
    ' incrémente pointeur de ligne
    j = j + 1
    'on copie la ligne
    ws1.Rows(i).Copy ws2.Range("A" & j)
    'derLig = Range("H" & Application.Rows.Count).End(xlUp).Row
    'Range("H" & derLig + 1).FormulaLocal = "=SOMME(H2:H" & derLig & ")"
    [surligner=#FFFF80]Range("H" & j + 1 & ":I" & j + 1).Formula = "=SUM(H2:H" & j & ")"
 [surligner=#FFFF80]End If
' on passe à la ligne client suivante
i = i + 1
   'End If
Wend

' on ferme le dernier classeur

Merci beaucoup ça fonctionne !