Bonjour mes chers amis

Je voudrais qu'en colonne R : il m'affiche le résultat de la somme de tous les montants en colonne K pour un même sinistre.

sinn = colonne des numéro de sinistre
CIE = colonne des numéro de compagnie

"K" c'est ma colonne des montants

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 For j = 2 To Derligne
For jj = j + 1 To Derligne
        If .Cells(j, sinn) = .Cells(jj, sinn) And Cells(j, CIE) = Cells(jj, CIE) Then
        .Range("R" & Derligne) = Application.WorksheetFunction.Sum(Range("K2:K" & Derligne))
        End If
        Next jj
        Next j
End With
pasDeCommentaire:
End Sub
Je veux qu'il m'additionne tous les montants pour un même numéro de sinsitre et pour un même numéro de compagnie.

Merci à tous !