Bonjour
Et avec un truc plus simple du genre :
a=Cells(1, 1).End(xlToRight).Column
Cela ne marcherait-il pas ?
Sans le cells dans le range, ni de conversion en Integer.
Je vous laisse remplacer les 1 du Cells, par vos valeurs, fonction...
Au revoir, à bientôt