Un compteur binaire en VBA

plage = Application.Transpose(TB)

For k = 1 To nn
  SB = decbin(k)
  TB(k) = String(n - Len(SB), "0") & SB
Next k
Set plage = Range("B1").Resize(nn + 1, 1)
plage.NumberFormat = "@"
plage = Application.Transpose(TB)

Public Function decbin(b As Long) As String
If b = 0 Then
  decbin = ""
Else
  decbin = decbin(b \ 2) & (b Mod 2)
End If
End Function

' n dans 2^n-1
Public Sub CpmpteurBin()
Dim Tb, tbTemp(), n As Long, SB As String, k As Long, nn As Long, plage As Range
Dim t As Single
t = Timer
Range("B:B").ClearContents
Range("B:B").ClearFormats
n = Range("A1").Value
nn = 2 ^ n - 1
If nn > Rows.Count Then MsgBox " n trop grand ": Exit Sub
'TB est le tableau des binaires de 0 à 2^n - 1
ReDim Tb(0 To nn)
SB = String(n, "0")
Tb(0) = SB
For k = 1 To nn
  SB = decbin(k)
  Tb(k) = String(n - Len(SB), "0") & SB
Next k
Set plage = Range("B1").Resize(nn + 1, 1)
plage.NumberFormat = "@"
ReDim Preserve tbTemp(1 To k, 1 To 1)
plage = Transposition(Tb, tbTemp)
MsgBox Timer - t & " sec"
End Sub

Function Transposition(Tb, tbTemp) As Variant
Dim j As Long

    For j = LBound(Tb) To UBound(Tb)
        tbTemp(j + 1, 1) = Tb(j)
    Next
    Transposition = tbTemp
End Function