Sub Tototiti()
Sheets.Add
texte = ""
Var = "abcdefghijklmnopqrstuvwxyz"
For i = 1 To Int(8960 / 26)
texte = Var & texte
Cells(1, 2) = texte
Next
texte2 = Cells(1, 2) & "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabctototitiabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
Cells(1, 2) = texte2
MsgBox "Avec Tototiti, régalez vous avec ses " & InStr(Cells(1, 2), "tototiti") & " super messages sur XLD."
End Sub