Bonjour,
voici une proposition,
je ne sais pas ce que tu attends dans la colonne Total
Sub aargh()
Set wsr = Sheets("Récap")
wsr.Rows("9:1000").ClearContents
k = 8
For Each ws In Worksheets
If ws.Name <> wsr.Name Then
ksal = k + 1
dl = ws.Cells(Rows.Count, 1).End(xlUp).Row
For i = 10 To dl
Set pl = wsr.Range("B" & ksal & ":B" & k)
Set re = pl.Find(ws.Cells(i, 5), lookat:=xlWhole)
If re Is Nothing Then
k = k + 1
wsr.Cells(k, 1) = ws.Name
wsr.Cells(k, 2) = ws.Cells(i, 5)
wsr.Cells(k, 3) = Application.WorksheetFunction.SumIf(ws.Range("E10:E" & dl), ws.Range("E" & i), ws.Range("D10:D" & dl))
End If
Next i
End If
Next ws
End Sub