bonjour mapomme,
merci beaucoup pour ton message, puis-je abuser et te demander de m'expliquer cette partie du code ?
For i = 1 To UBound(t)
If t(i, 2) = "a" Then dico(t(i, 1)) = IIf(dico(t(i, 1)) = "", 0, dico(t(i, 1))) + t(i, 3)
Next i
ReDim r(1 To max, 1 To 2): i = 0
For Each...