Range à partir d'une cellule trouvée

Bonjour à tous,

J'aimerai définir un range après avoir trouvé une cellule correspondante à une autre.

J'arrive à faire le recherche entre plusieurs feuilles mais je n'arrive pas à définir mon range.

Voici mon code:

Private Sub Actualiser_Click()

        Dim LigneTab As Range
        Dim LigneTemp As Range
        Dim CelTab As Range
        Dim CelTemp As Range

        Dim Cells As Range
        Dim Cel As Range

        Dim Cmpt As Long

        Set LigneTab = Worksheets("Macros").Range("A2:CZ2")
        Set LigneTemp = Worksheets("Macros Tempo").Range("A1:Z1")

        For Each CelTab In LigneTab
            If CelTab.Text <> "" Then
                For Each CelTemp In LigneTemp
                    If CelTab = CelTemp Then
                        Set Cells = Worksheets("Macros Tempo").Range(Cells(ActiveCell.Column, 2), Cells(ActiveCell.Column, 2002)).Select
                        For Each Cel In Cells
                            If Cel.Text <> "" Then
                            Worksheets("Macros").ActiveCell.Row.Offset(Cmpt).Formula = Cel
                            Cmpt = Cmpt + 1
                            Else: End If
                        Next Cel
                    Else: End If
                Next CelTemp
            Else: End If
        Next CelTab

End Sub

La ligne qui pose problème est celle-ci:

Set Cells = Worksheets("Macros Tempo").Range(Cells(ActiveCell.Column, 2), Cells(ActiveCell.Column, 2002)).Select

Pour résumer, si la cellule correspondante à ma recherche est J1 de la feuille "Macros Tempo" alors ma plage sera J2:J2002 de cette même feuille.

Avez-vous un idée?

Merci

Set Cells = Worksheets("Macros Tempo").Range(Cells(2,celltab.row), Cells(2002,celltab.column)).Select

Merci pour votre réponse.

Cependant ça ne fonctionne pas j'ai un message "Objet Requis".

Le fait que mon bouton "Actualiser" soit sur une autre feuille peut il poser problème?

J'ai adapté votre code au mien:

Set Cells = Worksheets("Macros Tempo").Range(Cells(CelTemp.Column, 2), Cells(CelTemp.Column, 2002)).Select

Mais j'ai encore une erreur, cependant quand je survol CelTemp.Column j'ai bien le numéro de colonne donc ça semble prendre le bon chemin.

Je pense que c'est la définition de la plage qui est mauvaise non?

Set Cells = Worksheets("Macros Tempo").Range(Worksheets("Macros Tempo").Cells(2,CelTemp.Column), Worksheets("Macros Tempo").Cells(2002,CelTemp.Column))

Super ça marche.

Merci beaucoup