For i = 0 To 25 ' On créé une boucle de 26 fois (pour l'alphabet) Debug.Print Chr(65 + i) ' Et ici on affiche directement le résultat par un debug.print. La fonction Chr permet de renvoyer le caractère correspondant au code ascii (CF: http://www.vbfrance.com/article.aspx?ID=534). On fait 65 (le code Ascii de la lettre A) et on lui incrément i (la variable de la boucle). ça nous donneras donc 65 + 0 pour la première boucle (A), 65 + 1 pour la deuxième (B), etc... Si il te faut les lettres en minuscules, tu commence a (97 à la place de 65), ou tu utilise la fonction LCase, qui transforme les majuscules en minuscules (donc: LCase(Chr(65 + i))) Next ' Et on continue jusqu'à la fin de l'alphabet (65 + 25 = Z)