Colorier des cellules à partir d'un clic

Bonjour,

je souhaite pouvoir colorier des cellules sélectionnées au par avant en cliquant sur un bouton et effacer si erreur (aucun remplissage)

Je n'y arrive pas par macro, pffff quel mauvais suis je...

Merci par avance

Bonjour hptit1, le forum,

je souhaite pouvoir colorier des cellules sélectionnées au par avant en cliquant sur un bouton et effacer si erreur

Peut-être ainsi....

Private Sub CommandButton1_Click()
  With Selection
  .Interior.ColorIndex = 6   'jaune
 End With
End Sub

Private Sub CommandButton2_Click()
 With Selection
  .Interior.ColorIndex = 4   'vert
 End With
End Sub

Private Sub CommandButton3_Click()
 With Selection
  .Interior.ColorIndex = xlNone   'rien
 End With
End Sub

Cordialement,

super

merci