Erreur d'exécution 1004

Bonjour,
J'aimerais pouvoir sélectionner une plage dans une feuille (ici "Fiche empilage dépilage"), pour lui appliquer ensuite une fonction nommée "bordure".
Voici le code qui ne marche pas:

Worksheets("Fiche empilage dépilage").Activate
ActiveSheet.Range(Cells(5, 1), Cells(bor1, 7)).Select

Call bordure

bor1 est un Integer déclaré, et dont la valeur est calculée avant dans le programme.
Une erreur se déclare à la ligne ActiveSheet...
L'erreur est: erreur d'exécution 1004 ; erreur définie par l'application ou par l'objet.
Quelqu'un peut-il m'aider à savoir pourquoi le code ne s'exécute pas correctement?
Merci d'avance

1 réponse

  1. Contributeur
    Quelle est la valeur de bor1 ?
    0
    1. bor1 a une valeur variable. Mais j'ai trouvé ma solution. Pour ceux que ça intéresse, il faut créer la fonction sous la forme suivante:
      Public Function bordure(Sheets(i).name)
      0