Copier une colonne de la seconde celulle à la dernière cellule non vide

Bonjour,

J'ai un petit soucis, j'espère que vous allez pouvoir m'aider.

Dans mon fichier, je souhaite dans la colonne Z, copier à partir de la cellule Z2 toute la colonne jusqu'à la dernière cellule non vide en sachant qu'il peut arriver que la cellule non vide soit uniquement la cellule Z2.

J'ai essayé ce bout de code, mais il me sélectionne de la cellule Z2 jusqu'à la dernière cellule du classeur (donc toute la colonne) alors que la sélection ne devait s'arrêter qu'à la cellule Z2 dans ce cas

    Range("Z2", Range("Z2").End(xlDown)).Select
    Range(ActiveCell, ActiveCell.End(xlDown)).Select

Quelqu'un peut il m'aider svp?

Bonjour Muqtadir

Essai cela :

Dim compteur As Integer

If Range("z2") <> "" Then compteur = 1

If Range("z3") <> "" Then compteur = 2

If compteur <= 1 Then

Range("z2").Select

Else

Range("Z2", "Z" & Range("Z65536").End(xlUp).Row).Select

End If

Cdt

Rechercher des sujets similaires à "copier colonne seconde celulle derniere vide"