Conversion image/Excel

Sub MAJ_Régions()
Range("Zone").Select 'on sélectionne la plage nommée "Zone"
Application.ScreenUpdating = False 'on désactive les modifications visibles à l'écran
For Each cell In Selection 'pour chaque cellule dans la selection
cell.Select 'sélectionne la cellule
Couleur = ActiveCell.Offset(0, 1).Interior.Color 'la couleur à prendre en compte est la couleur de la cellule en colonne + 1
ActiveSheet.Shapes.Range(Array(ActiveCell.Text)).Select 'On sélectionne la forme du nom de la cellule active
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Chr(10) & cell & "" & Chr(10) & ActiveCell.Offset(0, 1).Text & Chr(13) & ActiveCell.Offset(0, 2).Text 'on remplit la forme avec le texte
NCar = Len(Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text) 'on teste la longueur du texte de la forme
Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, NCar).ParagraphFormat. _
        Alignment = msoAlignCenter 'on aligne le texte de la forme des caractères 1 à Ncar
        ActiveSheet.Shapes.Range(Array(ActiveCell.Text)).Select 'On sélectionne la forme du nom de la cellule active
With Selection.ShapeRange(1).Fill
        .Visible = msoTrue
        .ForeColor.RGB = Couleur 'on rempli la forme avec la couleur précédemment définie
        .Transparency = 0
        .Solid
    End With
Next
Application.ScreenUpdating = True 'on réactive les modifications visibles à l'écran
[A1].Select 'on sélectionne la cellule A1
End Sub