Sélectionner la dernière cellule non vide de la colonne A

Bonjour,

Dans ma macro, voici les étapes que je cherche à réaliser :

1) Fichier Excel n°1 : je copie une ligne sur ce fichier

2) Fichier Excel n°2 : je sélectionne la première cellule non vide de la colonne A, et je viens y coller la ligne du Fichier Excel n°1

Le code suivant fonctionne mais je viens sélectionner la cellule A2, alors qu'il se pourrait qu'elle soit non vide, il faudrait alors que je me positionne en A3 avant de coller...

Sheets("compilation").Select

Range("A1:P1").Select
Selection.Copy

Windows("data base.xlsm").Activate

Sheets("data base").Select

Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

End Sub

J'ai tenté l'idée suivante mais cela ne fonctionne pas :

Sheets("compilation").Select

Range("A1:P1").Select
Selection.Copy

Windows("data base.xlsm").Activate

Sheets("data base").Select

dernligne = Range("A" & Rows.Count).End(xlUp).Row

dernligne.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

End Sub

Auriez-vous SVP une solution pour me permettre d'arriver à mes fins ?

Cordialement,

Charles CARON

Bonjour,

Si j'ai bien compris ...

Au lieu de dernligne.Select > range("A" & dernligne).Select

ric

Bonjour,

Je n'ai pas l'impression que votre proposition fonctionne, cependant j'ai résolu le problème par le code suivant :

Sheets("compilation").Select

Range("A1:P1").Select
Selection.Copy

Windows("data base.xlsm").Activate

Cells(Rows.Count, 1).End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

End Sub

Merci quand même.

Cordialement,

Charles CARON

Bonjour,

L'important est que tu sois dépanné et que tu puisses avancer dans ton projet ...

ric