Sub DialogueCouleur() 'Ti
Dim Res As Boolean
' Declaration de la variable Res en Boolean, c'est à dire ne peut prendre que la valeur
' Vrai ou faux
On Error GoTo erreur ' Si Erreur alors allez à Erreur.
With ActiveCell ' avec la cellule active (selectionnée)
Res = Application.Dialogs(xlDialogEditColor).Show(.Interior.ColorIndex)
' Si cette cellule a une couleur de fond alors afficher la boite de dialogue
' Couleur
If Res And (Selection.Count > 1) Then Selection.Interior.ColorIndex = .Interior.ColorIndex
' Si pas cliquer sur le bouton annulé et toujours une cellule selectionnée
' Alors on applique la couleur de la boite de dialogue COULEUR
End With ' fin du avec
erreur:
End Sub