Codifer une variable en plusieurs variables

Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci  par un clic droit sur le lien proposé dans le message de réponse 

Option Explicit
Option Base 1
'---------------------------------------------------
Sub tarif_communes()
Dim Derlig As Integer, T_in
Dim Cptr As Integer
Dim Dico As Object, Ref As String
'Dim test 'variable vérif essai
    Application.ScreenUpdating = False
'-----------------------initialisations
   With Sheets("feuil1")
        'FUSION COLONNES A & B ANNULEE
        .Columns("A:B").UnMerge
        'mémorisation tableau iniitial
        Derlig = .Cells.Find(what:="*", searchdirection:=xlPrevious).Row
        T_in = .Range("A2:A" & Derlig)
     End With
        'instancation objet dictionary
        Set Dico = CreateObject("scripting.dictionary")
'---------------------comptage
            For Cptr = 1 To UBound(T_in)
                T_in(Cptr, 1) = Left(T_in(Cptr, 1), 8) '=tarif/commune
                Ref = T_in(Cptr, 1)
                If Not Dico.exists(Ref) Then
                    Dico.Add Ref, 1
                Else
                    Dico.Item(Ref) = Dico.Item(Ref) + 1
                    'test = Dico.Item(Ref)
                End If
        Next
'---------------publication des nombres de tarifs par commune
        With Sheets("feuil2")
            .Range("A2").Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)
            .Range("B2").Resize(Dico.Count, 1) = Application.Transpose(Dico.items)
            .Range("A2:B" & Dico.Count + 1).Borders.Weight = xlThin
            .Activate
        End With
End Sub