Macro pour copier/coller une plage de cellule

Bonjour à tous,

Je vous sollicite pour mettre en place un code qui me permettrait de copier/coller la valeur(uniquement) d'une plage de cellule d'une feuille d'un classeur vers une autre feuille d'un autre classeur.

Je m'explique:

Dans l'exemple, je souhaiterai que la valeur des cellules de la plage de la feuille 1 (H6:I12) du classeur "Test 1" soit reportée dans la

la plage de la feuille 1 (A10:B16) du classeur "Test 2".

Idem pour la feuille 2 de chaque classeur, tout en sachant que le nombre de ligne est aléatoire (drligne)

Je cherche juste à copier la valeur sans la formule.

Merci d'avance pour votre aide.

Peka

PS: Je vous met le code que j'ai tenté et qui marche pas

Ca évitera peut être de tout se retaper

Sub import()

Dim classeurSource As Workbook, classeurDestination As Workbook

Set classeurSource = Application.Workbooks.Open("C:\Users\j70371\Desktop\Test 1.xlsx", , True)
Set classeurDestination = ThisWorkbook
Dim drligne As Long

    drligne = Cells(6, 8).End(xlUp).Row - 1
    classeurSource.Sheets("Feuil1").Activate
    Range("H6:I" & drligne).Select
    Application.CutCopyMode = False
    Selection.Copy

    classeurDestination.Sheets("Feuil1").Activate
    Range("A10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    classeurSource.Close False

End Sub

Après recherche et essais, je pense avoir trouvé.

Je ferme mon sujet du coup.

Sub import()

Dim classeurSource As Workbook, classeurDestination As Workbook

Set classeurSource = Application.Workbooks.Open("C:\Users\j70371\Desktop\Test 1.xlsx", , True)
Set classeurDestination = ThisWorkbook
Dim drligne As Long

    classeurSource.Sheets("Feuil1").Activate
    drligne = Range("H" & Rows.Count).End(xlUp).Row

    Range("H6:I" & drligne).Select
    Application.CutCopyMode = False
    Selection.Copy

    classeurDestination.Sheets("Feuil1").Activate
    Range("A10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    classeurSource.Sheets("Feuil2").Activate
    drligne = Range("H" & Rows.Count).End(xlUp).Row

    Range("H6:I" & drligne).Select
    Application.CutCopyMode = False
    Selection.Copy

    classeurDestination.Sheets("Feuil2").Activate
    Range("A10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    classeurSource.Close False

End Sub

C'est peut être possible de le simplifier.

Du coup je ferme et dsl si quelqu'un s'est penché sur le sujet