Merci Bernard c'est Gentil,
Il existe la même chose sous Excel tu sais ?
Essaie ceci :
Sub LOL()
Dim LOOL As Variant, LOOOL As Variant, LOOOOL As Variant, LOOOOOL As String
LOOOOOL = InputBox("Entre ton Prénom s'il te plait")
For Each LOOL In Array("Merci", "Merci 1000 fois", "Reconnaissance infinie", _
"éternellement redevable", "Merci Merci Merci", "gracias", "Special Thanks", _
"gracias", "thank you", "kozonom")
For Each LOOOL In Array("extraordinaire", "géniale", "incroyable", "merveilleuse", _
"fantastique", "gentille", "charitable", "intelligente", "unique", "serviable", "polie")
MsgBox LOOL & " tout particulièrement à " & LOOOOOL & " , une personne si " & LOOOL, vbInformation, LOOOL
Next LOOOL
Next LOOL
End Sub
LOL !! bonne soirée à toi et merci pour le devoir des 100 Lignes, parfait !!!
@+Thierry