Copier Coller une partie de ligne variable dans une autre feuille

Bonjour à tous,

Je débute sur VBA, donc désolé si c'est un problème un peu basique, mais après avoir parcouru le forum, je n'ai pas trouvé de solutions.

J'ai une variable (rngTrouve) qui va chercher dans la feuille "Sanity Check" une cellule donnée en colonne B, et j'aimerai à partir de là sélectionner cette cellule + les 5 à droite pour les coller en "Feuil1". Voilà mon code :

Sub RechercheDeDonnees()
        Dim rngTrouve As Range
        Dim strChaine As String
        strChaine = Worksheets("Feuil1").Cells(6, 5)
    Set rngTrouve = Sheets("Sanity Check").Columns(2).Cells.Find(strChaine, , xlValues, xlWhole)
           If rngTrouve Is Nothing Then 
                MsgBox "Pas trouvé"
         Else
               Worksheets("Sanity Check").Activate
               Range(rngTrouve & ":" & Cells(rngTrouve.Row, 7)).Select
               Selection.Copy Sheets("Feuil1").Cells(1, 1)
           End If
 End Sub

J'ai à chaque fois une erreur 1004 (Erreur définie par l'applicaiton ou par l'objet).

J'ai essayé plusieurs façons différentes d'arriver à mes fins mais je ne trouve pas de solutions, help ! :/

Merci d'avance à qui pourra m'aider !

Salut Charlie,

comme ceci...?

Dim rCel As Range
'
On Error Resume Next
With Worksheets("Sanity Check")
    Set rCel = .Columns(2).Find(what:=Cells(6, 5), lookat:=xlWhole)
    If Not rCel Is Nothing Then
        Cells(1, 1).Resize(1, 6) = rCel.Resize(1, 6).Value
    Else
        MsgBox "Pas trouvé"
    End If
End With
On Error GoTo 0

A+

Hello curulis57,

Merci beaucoup à toi !

Cela n'a pas marché directement car le but était de le copier sur une autre feuille( "Feuil1"), mais en rajoutant les bon Worksheets() aux bons endroits, ça a marché ! Et beaucoup plus simplement que ce que j'avais prévu, donc merci à toi (le code définitif ci dessous)

Sub RechercheDeDonnees()

Dim rCel As Range
'
On Error Resume Next
With Worksheets("Sanity Check")
    Set rCel = .Columns(2).Find(what:=Worksheets("Feuil1").Cells(4, 5), lookat:=xlWhole)
    If Not rCel Is Nothing Then
        Worksheets("Feuil1").Cells(1, 1).Resize(1, 6) = rCel.Resize(1, 6).Value
    Else
        MsgBox "Pas trouvé"
    End If
End With
On Error GoTo 0

End Sub