Salut,
Tien tien ca me rappel quelque chose.
Et ca fonctionnait à l'époque!!
Essai comme ca:
Sub total()
Dim Cpt As Integer
Dim Recherche
Dim A As Worksheet
Dim B As Worksheet
Dim Lig As Integer
Set A = Sheets("Feuil1")
Set B = Sheets("Feuil2")
B.Range("B2:B" & B.Range("A65536").End(xlUp).Row).ClearContents
For Cpt = 2 To A.Range("A65536").End(xlUp).Row
Set Recherche = B.Range("A2:A" & B.Range("A65536").End(xlUp).Row).Find(what:=A.Range("A" & Cpt))
If Not Recherche Is Nothing Then
Lig = Recherche.Row
B.Range("B" & Lig) = A.Range("B" & Cpt) + B.Range("B" & Lig)
End If
Next
End Sub
@+ Minick