Copy / Paste sur 2 workbooks

Bonjour.

Dans ma procédure, j'ai une erreur 438 (propriété ou méthode non gérée par cette objet) au niveau de ma ligne Selection.Paste

Public Sub Generer_Tableau(ByVal n As String, ByVal m As String)
Dim classeur1 As Workbook
Dim classeur2 As Workbook
Dim J As Range
Dim Tmp As Long
Dim Lg&

Set classeur1 = Workbooks("Synthèse budget interco P2 2012")
Set classeur2 = Workbooks("Synthèse Bugdet Interco Prévision")

Tmp = 6

classeur1.Worksheets(n).Activate

Lg = ActiveSheet.Range("J" & Rows.Count).End(xlUp).Row

 For Each J In ActiveSheet.Range("J6:J" & Lg)
    If J.Value <> "" Then
        For i = -7 To 0
                J.Offset(0, i).Select
                Selection.Copy
                classeur2.Worksheets(m).Activate
                ActiveSheet.Cells(Tmp, i + 10).Select
                Selection.Paste
        ' L'erreur est ici
                classeur1.Worksheets(n).Activate
        Next i
     Tmp = Tmp + 1
    End If
 Next J
End Sub

Private Sub CommandButton2_Click()
Call Generer_Tableau("UO filtrée", "Feuil1")
End Sub

Je voulais donc savoir si les commandes Copy et Paste n'étaient plus valables lorsque qu'on changeait de Workbook et s'il y avait un moyen de contourner ça.

Merci

Salut,

Essayes :

Selection.PasteSpecial xlPasteAll

Ca fonctionnera mieux je pense.

La méthode paste n'existant pas sur l'objet range.

Damien

Ah c'était donc ça, je savait que c'était un truc du style ^^

Merci