Si l’utilisateur devait décider lui-même de la couleur de fond qu’il aimerait avoir pour certaines cellules, mettez-lui la boîte de dialogue Palette de couleurs à sa disposition via une macro suivante :

Sub CouleursLireDepuisCouleurPalette ()
    Dim b As Boolean
    Dim I As Integer
    b = Application.Dialogs (xlDialogPatterns).Show
       If b = True Then
          I = ActiveCell.Interior.ColorIndex
           MsgBox " L'index de couleur est:" & I
    Else
          I = xlNone
           MsgBox " Le dialogue a été annulé "
    End If
End Sub

Figure: Quelle couleur de fond doit-on utiliser?