Bonjour,
voici un code adapté, j'ai fait l'hypothèse qu'il y avait au plus 1000 agents.
Sub C75()
Dim agent(1000), obj(1000), rea(1000)
nag = 0
i = 4
pag = 3
While Range("C" & i) <> ""
If Month(Range("B" & i)) = Month(Now()) Then
trouvé = False
For j = 1 To nag
If Range("C" & i) = agent(j) Then x = j: trouvé = True: Exit For
Next j
If Not trouvé Then
nag = nag + 1
x = nag
agent(x) = Range("C" & i)
End If
obj(x) = obj(x) + Range("D" & i)
rea(x) = rea(x) + Range("e" & i)
End If
i = i + 1
Wend
For j = 1 To nag
If rea(j) / obj(j) < 0.75 Then pag = pag + 1: Range("H" & pag) = agent(j): Range("I" & pag) = rea(j) / obj(j)
Next j
End Sub