Copier le meme texte dans plusieurs cellule

Bonjour,

Je souhaite en selectionnant un plage de données et en cliquant sur un bouton affecté à une macro, que toutes les cellules se mettent de la meme couleur ( ca j'y arrive) mais par contre je bloque sur : avoir le meme texte dans toutes les cellules séléctionnées.

Pour l'instant le texte ne se copie que dans la premiere cellule de la séléction.

Si quelqu'un peut m'aider

Merci d'avance

François

Ci-dessous mes lignes de codes et un fichier en pJ

Sub bonjour()

'

' bonjour Macro

' Macro enregistrée le 20/09/2012 par François'

With Selection.Interior

.ColorIndex = 6

.Pattern = xlSolid

End With

ActiveCell.FormulaR1C1 = "bonjour"

Range("a1").Select

End Sub

Sub effacer()

'

' effacer Macro

' Macro enregistrée le 20/09/2012 par François

'

Selection.ClearContents

Selection.Interior.ColorIndex = xlNone

End Sub

bonjour,

Selection = "bonjour"

A+

Merci beaucoup