Exporter données d'une feuille vers une autre à un emplacement precis

Salut chers tous

J'aimerais copier et coller en valeur les données B6:B16 de ma feuille "Conso" dans ma feuille "Historique_Conso" selon le mois .

Je joins un fichier test pour illustrer mon problème. Merci de vouloir me guider.

Slt KTM,

essaie ca:

Sub ExpDonnee()
    Set ws1 = Sheets(1)
    Set ws2 = Sheets(2)
    dDate = ws1.Range("B3").Value

     With ws2
        Set rngFind = .Range("C4:N4").Find(What:=dDate, LookAt:=xlWhole, MatchCase:=False)
        If Not rngFind Is Nothing Then
            ws1.Range("B6:B16").Copy .Range(.Cells(5, rngFind.Column), .Cells(15, rngFind.Column))
        End If
     End With
End Sub

Merci ça marche

J'ai procédé ainsi:

Set ws1 = Sheets("Historique_Conso")

Set ws2 = Sheets("Conso")

dDate = ws2.Range("B3").Value

With ws1

Set rngFind = .Range("C4:N4").Find(What:=dDate, LookAt:=xlWhole, MatchCase:=False)

If Not rngFind Is Nothing Then

ws2.Range("B6:B16").Copy .Range(.Cells(5, rngFind.Column), .Cells(15, rngFind.Column))

End If

End With

Le résultat est propre.

Mais un dernier detail , je voudrais que seules les valeurs soient transférées au cas ou il aurait une formule dans la plage d'origine.

Encore Merci!

Bonjour,

Multiposte.

Cdlt.