Problème ComboBox

voilà le code "normal" pour récupérer des valeurs dans une comboBox :
**********************************
Option Explicit
**********************************

Private Sub UserForm_Initialize()
Ini
End Sub
**********************************
Private Sub Ini()
Dim a As Integer
Dim b As String

a = Sheets("Feuil1").Range("A65536").End(xlUp).Row
b = Sheets("Feuil1").Range("A2:A" & a).Address
ComboBox5.RowSource = "Feuil1!" & b

End Sub
****************************

Le problème c'est que j'ai un message d'erreur :
"Erreur de Compilation
Variable non définie "

J'ai bidouillé et impossible de trouver ce qu'il ne va pas !!!

Merci d'avance Raph