Sub remerciements()
Dim tousmesamis()
For n = 1 To tousmesamis
For m = 1 To 1000
MsgBox ("Un grand Merci à toi pour ces très aimables souhaits d'anniversaire")
Select Case tousmesamis(n)
Case "Tibo"
ajouter = "Ben moi c'est dans tes formules que je me perds !"
Case "Brigitte"
ajouter = "Bientot le Beaujolais nouveau ! bises"
Case "JeanPierre"
ajouter = "Merci a mon inverse (pour le pseudo seulement !)"
Case "Wilfried"
ajouter = "A ta santé !"
Case "Jocelyn"
ajouter = " Tu sais combien j'apprecie ton amitié qui date de mes (pénibles) débuts sur XLD"
End Select
Next m
Next n
End Sub