Bouton qui applique une couleur aux cellules

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 3 Then 'Si colonne C
        SelectionColor
    End If
    End Sub
Sub SelectionColor()
Dim ComDlg, cdlCCFullOpen, cdlCCRGBInit, cdlCancel
Dim code As Variant
 Set ComDlg = CreateObject("MSComDlg.CommonDialog")
Debut:
With ComDlg
.CancelError = True
.Color = RGB(255, 0, 0)
.Flags = cdlCCFullOpen Or cdlCCRGBInit

' Appel de la boite couleur
 On Error Resume Next
.ShowColor
If Err.Number <> cdlCancel Then
If MsgBox("Vous n'avez pas sélectionné de couleur." & Chr(10) & "Voulez-vous annuler la sélection ?", vbYesNo, "Couleurs") = vbYes Then
Exit Sub
Else
GoTo Debut
End If
End If
End With
ActiveCell.Interior.Color = ComDlg.Color ' couleur
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Column = 3 Then 'Si colonne C
       MsgBox colorBox(Target.Interior.Color)
        If couleur > -1 Then 'Si l'utilisateur a choisi une couleur
           ' Target.Interior.Color = couleur
        End If
    End If
    
End Sub