Pour l'autre erreur, il faut changer:
derligne = Sheets("BDD_licencies").Range("A65000").End(xlUp).Row + 1
par:
derligne = Sheets("BDD_licencies").Range("B"& rows.count).End(xlUp).Row + 1
Le problème est que la colonne A contient des formules, si on prend cette colonne comme référence pour obtenir la dernière ligne, on ira voir la dernièr ligne qui contient une formule. la colonne B ne contient pas de formules, et donc est plus fiable.
Autre remarque, tu vas devoir copier la mise en forme et les formules sur ton tableau, à chaque fois que tu vas ajouter des lignes qui dépassent de ton tableau, alors qu'en le déclarant comme un tableau dans le gestionnaire de noms (via "mettre sous forme de tableau" dans l'onglet "Accueil"), les formules se recopieraient toutes seules, et la mise en forme aussi.