Calcul automatique des puissances de 2 pour Word :

<XMP>
Sub PowerOf2List()
   Dim n
   n = 1
   While n < 1E+22
      Selection.TypeText (n & vbCrLf)
      n = n * 2
   Wend
End Sub
</XMP>