Le nom de la feuille où il y a les données est-il dans la cellule DA1000 ou est-ce que cette cellule est nommée.
Si c'est le premier cas, ton exemple :
dim feuille as string
feuille= sheets('filtre').range('da1000').value'devrait bien renvoyer le nom de la feuille
et donc ensuite
il faudrait mettre :
...xlValue = '=' & feuille & '!R3C9:R' & nba +2 & C9'
Dans le deuxième cas (cellule nommée), je ne comprend pas bien pourquoi tu devrais récupérer un nom que tu connais, mais en gros ça devrait donner un truc du genre.
feuille = sheets('filtre').range('DA1000').Name