Atribuer une valeur à une selection de cellules

Bonjour à tous!

je souhaite lorsque je clique sur un bouton attribuer une couleur et un texte à l'ensemble des cellules de ma selection, pouvez vous m'aider SVP.

ps: ça fonctionne pour la mise en forme mais je ne sais pas comment faire pour attribuer un texte à l'ensemble des cellule de ma selection.

Merci d'avance

Sub Rouge()

'

' couleur rouge

'

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 255

ActiveCell.FormulaR1C1 = "DEP"

.TintAndShade = 0

.PatternTintAndShade = 0

End With

With Selection.Font

.ThemeColor = xlThemeColorDark1

.TintAndShade = 0

End With

End Sub

Bonsoir

A tester

Sub Rouge()
'
' couleur rouge
'
  Selection.Value = "DEP"
  With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 255
    'ActiveCell.FormulaR1C1 = "DEP"
    .TintAndShade = 0
    .PatternTintAndShade = 0
  End With
  With Selection.Font
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = 0
  End With
End Sub

Un grand MERCI Bonzaï64 pour ta réactivité et ta gentillesse, ça Fonctionne..

Salutations