Coloration Carte région France

Bonjour,

Je ne parviens pas à résoudre mon problème, malgré plusieurs tentatives.
je souhaite colorer ma carte de France par régions (nouvelles cartes) en passant par VBA mais visible mes lignes ne sont pas justes et je ne trouve pas l'erreur.
Ce n'est que la deuxième fois que je manie VBA alors je ne cerne pas toutes les subtilités.

Sub ColorMap()
'Lexique
Dim ShtD As Worksheet
Dim ShtS As Worksheet
Dim Formes As Object
Dim Couleur As Long
Dim Ligne As Long
Dim Colonne As Long
Dim Shapes As Shape

Set ShtS = ThisWorkbook.Sheets("2016")
Set ShtD = ThisWorkbook.Sheets("Données")
Set Formes = Shapes
For Each Shapes In ShtS.Shapes("CarteFrance").GroupItems
If Shapes.Name = ShtD.Cells(Ligne, 1) Then Formes = Shapes("Cells(Ligne,1)")
With Formes
.Fill.Solid
.Fill.Transparency = 0#
.Fill.ForeColor.RGB = CouleurReg(ThisWorkbook.Sheets("Données").Cells(Ligne, 4).Value)
End With
Next

End Sub