J'ai juste une question :)
Pourriez-vous juste m'expliquer ce bout de code svp?
If Not dico.Exists(a(i, 4)) Then '
Set dico(a(i, 4)) = CreateObject("Scripting.Dictionary")
End If
If Not dico(a(i, 4)).Exists(a(i, 2)) Then
ReDim w(1 To 13, 1 To 1)
End If
w(1, 1) = a(i, 1)...