Minick

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.Rang e("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