Problème VBA très simple

Bonjour, je suis entrain de faire une macro qui permettrai de copier un tableau, et le coller dans un autre fichier.
Je tiens à préciser, que j'ajoute tout les jours des lignes dans ce tableau, mais le problème est qu'avec mon code, les dernière lignes ne sont pas intégrés.
Je voudrais donc que mon code VBA prenne en compte la dernière ligne du tableau. Merci, le code est :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Macro2() ' ' Macro2 Macro '   ' ActiveWindow.SmallScroll Down:=3 Range("A22:W68").Select ActiveWindow.ScrollColumn = 1 Selection.Copy Windows("Classeur2").Activate Range("A2").Select ActiveSheet.Paste Windows("Voitures en cours - Chine.xlsx").Activate Range("C19").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "" Range("C23").Select End Sub

---

Si l'on considère qu'il n'y a pas de cellule vide entre w22 et la dernière :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Macro2() ' Range(range("A22")range("W22").end(xldown)).Copy Windows("Classeur2").Activate Range("A2").Select ActiveSheet.Paste   ' Windows("Voitures en cours - Chine.xlsx").Activate ' Range("C19").Select ' Application.CutCopyMode = False ' ActiveCell.FormulaR1C1 = "" ' Range("C23").Select   End Sub

---

Je ne sais pas si la deuxième aprtie de la macro (Voitures en cours) est utile à la macro.

Bonjour,

Une autre possibilité:

Code:

---

Range("A22:W" & Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row).Select

---

on me met une erreure de syntaxe :

le 3ème "range" dans la formule à la 1ere ligne semble ne pas comporter les bonnes parenthéses.

merci de m'avoir répondu

@QuestVba
Ce code permet de selectionner le tableau, mais je n'arrive tjr pas à continuer le code afin qu'il le cole dans l'autre fichier.

Merci

QuestVBA merci, j'ai utilisé ta formule et elle semble marché, le probléme est qu'un message d'erreur m'apparait je le joint en piece jointe.

Code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Macro2() ' Range("A22:W" & Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row).Select ActiveWindow.ScrollColumn = 1 Selection.Copy Windows("Fichier Global.xlsx").Activate Range("A2").Select ActiveSheet.Paste Windows("Voitures en cours - Chine.xlsx").Activate Range("C19").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "" Range("C23").Select End Sub

---

petit erreur de recopie, il manquait la virgule :

Code:

---

Range(range("A22"), range("W22").end(xldown)).Copy

---