Re
Une erreur dans le code : tu appelle la variable LL et ne la définit qu'après, donc elle prend la valeur 0
écris plutôt :
LL = Sheets('data').Range('A65536').End(xlUp).Row + 1
coul = Sheets('data').Range('CQ' & LL).Value
quant au reste je ne vois, à première vue, pas de problèmes
A+