Dugenou

Voilà,

avec enregistrement ça donne ça :

Sub dugenou()
'
' Macro enregistrée le 11/04/2004 par Dugenou
'
Range("D5").Select
ActiveCell.FormulaR1C1 = "T'as le bonjour de Dugenou"
Range("D5").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 5
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Columns("D").EntireColumn.AutoFit
End Sub

salut !