XL 2010 convertion d'un code 32 bits en 64 bits

Bonjour le forum bonjour a tous
j'ai deux codes qui fonctionnent très bien en 32 bits. j'ai converti en 64 bits et ça ne marche plus.
je voudrai votre aide.
Private Sub CommandButton1_Click()

With ActiveSheet 'codename(Feuil1)

For I = 0 To Me.ListBox1.ListCount - 1

L = Me.ListBox1.List(I, 2)

.Range("S" & L) = Me.ListBox1.List(I)

.Range("T" & L) = Me.ListBox1.List(I, 1)

Next

End With

Me.ListBox1.Clear

'Bouton Annuler

Unload UserForm1

End

End Sub

Private Sub CommandButton4_Click()

With ActiveSheet 'codename(Feuil1)

For I = 0 To Me.ListBox1.ListCount - 1

L = Me.ListBox1.List(I, 2)

.Range("S" & L) = Me.ListBox1.List(I)

.Range("T" & L) = Me.ListBox1.List(I, 1)

Next

End With

Me.ListBox1.Clear

'Bouton Annuler

Unload Me

UserForm1.Show

Me.MultiPage1.Value = 1

End Sub