Erreur synthaxe Range

[relo]

Bonjour,
Je cherche à insérer plusieurs tableau les uns à la suite des autres, pour cela je récupère l'adresse de la dernière ligne vide pour insérer un nouveau tableau en dessous.
J'insère donc une adresse dans un Range mais lorsque j'exécute mon code j'ai une erreur de type " Référence incorrecte ou non qualifiée"
Voici mon code :
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1048576" & .End(xlUp).Address & ":Q1048576" & .End(xlUp).Address), , xlNo).Name = "Tableau1"

J'ai essayé également en remplaçant les adresse par des variable telle que :
DerCell1 = Range("A1048576").End(xlUp).Address
DerCell2 = Range("Q1048576").End(xlUp).Address
ActiveSheet.ListObjects.Add(xlSrcRange, Range("DerCell1 😀erCell2"), , xlNo).Name = "Tableau1"

Mais cela ne fonctionne pas non plus..

Merci d'avance 🙂

 

[Dranreb]

Bonjour.
Essayez comme ça :

ActiveSheet.ListObjects.Add(xlSrcRange, _
   ActiveSheet.Cells(1048576, "A").End(xlUp).Offset(2).Resize(, 17), , xlNo) _
   .Name = "Tableau1"