Option Explicit
Const L As String = 'Lily'
Sub WelcomeLily()
Dim Jour As Range
Dim TaVie As Range
Dim PleinDeBonheur As Shape
Set TaVie = Range('A1:A200')
For Each Jour In TaVie
Randomize
Set PleinDeBonheur = ActiveSheet.Shapes.AddTextEffect(Int((29 * Rnd) + 1), L, 'Arial', 16#, _
0, 0, Int((800 * Rnd) + 1), Int((300 * Rnd) + 1))
With PleinDeBonheur
.Fill.ForeColor.RGB = RGB(Int((255 * Rnd) + 1), Int((255 * Rnd) + 1), Int((255 * Rnd) + 1))
End With
Next
End Sub