Sub Real()
Dim mis As Range, sh As Worksheet, cel As Range, somme As Double
For Each mis In Range("B2:B" & Range("B65536").End(xlUp).Row)
somme = 0
For Each sh In Worksheets
If sh.Index > 1 Then
For Each cel In sh.Range("I11:I" & sh.Range("I65536").End(xlUp).Row)
If CStr(cel) = CStr(mis) Then somme = somme + cel.Offset(0, 5)
Next cel
End If
Next sh
mis.Offset(0, 3) = somme
Next mis
End Sub