XL 2010 probleme de validation par liste avec vba

Bonjour a tous
Avec Excel 2007 je crée une liste de validation sur une cellule avec des données dans un autre fichier cf le code ci après
Sub majListeNRA()
Dim findc As Integer
Dim txt As String
If dc4 Then
findc = Workbooks(ficmacro).Sheets(2).Cells(1, 6).End(xlDown).Row
txt = "=[" & ficmacro & "]" & Workbooks(ficmacro).Sheets(2).Name & "!f1:f" & findc

Else
findc = Workbooks(ficmacro).Sheets(2).Cells(1, 9).End(xlDown).Row
txt = "=[" & ficmacro & "]" & Workbooks(ficmacro).Sheets(2).Name & "!I1:I" & findc
End If

With Workbooks(ficData).Sheets(4).Cells(10, 1).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=txt
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

End Sub
"ficmacro" est une variable contenant le nom du fichier ou sont les données devant servir a remplir la liste
avec la version 2007 aucun pb par contre sur 2010 le code plante sur la ligne add avec la propriété Formula1
Si quelqu'un a une idee ??
En direct dans l'interface d'Excel 2010 je ne peut pas aller chercher la plage pour remplir la liste dans un autre fichier
PB de version ou de syntaxe je ne pas travailler sr 2010 c'est le micro du boulot de ma femme avec Excel sur le serveur distant
Merci de toute info