Sélection d'une plage de cellules

Bonjour et merci d'avance,

Je cherche un code qui me permette de sélectionner des cellules en ligne et jusqu'à une colonne bien précise.

ActiveCell.Offset(0, 0).Select
    Range(Selection, Selection.End(xlDown)).Select 'Ok çà répond à mon besoin
    Range(Selection, Selection.End(xlToRight)).Select 'jusqu'à la colonne "DD" et là c'est le drame !

    Selection.Copy

Je sais que la ligne de code

Range(Selection, Selection.End(xlToRight)).Select

ne fonctionne pas quand il y a une cellule vide dans une colonne intermédiaire. Car si j'ai bien compris cette fonction s'arrête à la première cellule vide. Or moi je veux forcer la sélection jusqu'à la colonne "DD" par exemple. et la je

Merci pour votre aide précieuse.

Chree74

Bonjour Chree,

??? inutile de sélectionner, surtout si tu sais d'avance que tu veux le faire jusqu'à la colonne DD

essaye plutôt : Cells(ActiveCell.Row, "DD").Copy

dhany

Merci Dhany ça marche !

voilà mon code au final

    Range("A1").Select
    Range("A2:A" & Range("A65536").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 1).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Cells(ActiveCell.Row, "DD")).Copy
    Range("A7").Select

merci pour ton retour, et pour avoir passé le sujet en résolu !

bonne continuation !

dhany