J'ai en rouge ces deux ensemble de ligne
Dim Cel As Range, DicCoul As New Dictionary, TNoms(), L As Long, TRés(), _
DicNoms As New Dictionary, Shp As Shape, Nom As String, Coul As Long
et
If DicNoms.Exists(Nom) And DicCoul.Exists(Coul) Then
TRés(DicNoms(Nom), 1) = DicCoul(Coul)...