bonjour,
après recherche je n'ai pas réussi à résoudre ce problème:

tout d'abord je recherche une cellule spécifique avec la fonction find puis je la selectionne (rngTrouve). cela fonctionne très bien !
Ensuite je souhaiterais selectionner toutes les cellules en dessous de "rngTrouve" jusqu'à la derniere cellule afin de copier cette plage dans un autre workbook ...

avec mon code ça selectionne une cellule au hasard...

voilà mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Workbooks(3).Activate
        Set rngTrouve = ActiveSheet.Columns(2).Cells.Find(heure, lookat:=xlPart)
        rngTrouve.Select
        Set r1 = Selection.Range(rngTrouve.Address)
        MsgBox r1.Address
        Set Zone1 = ActiveCell.End(xlDown)
                MsgBox Zone1.Address
        Set r2 = Selection.Range(Zone1.Address)
 
        Set myMultiAreaRange = Union(r1, r2)
        myMultiAreaRange.Select
merci de votre aide