Sub David_XLD()
'
[COLOR="SeaGreen"]' David_XLD Macro
' Macro enregistrée le 30.11.2007 par TheLio,
un peu à la bourre certes, mais tout de même...[/COLOR]
'
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "Happy birthday David"
Range("A2").Select
End Sub