Copier des colonnes différentes dans une autre feuille

[Lorine]

Bonjour , j'ai essayé ce code pour copier des colonnes différentes dans une autre feuille.
J'ai un message d'erreur "utilisation incorrecte de la propriété".

Sub COPIE_colonne()
 Dim origine As Worksheets
        origine = ActiveSheet
              
           'copier les valeurs de Range("C6:C26") et les coller dans "OPTH" puis resélectionner la feuille d'origine _
            pour copier les valeurs de Range("H6:H30")et les coller dans "OPTH" ainsi de suite
        
            Range("C6:C26").Select
            Selection.Copy
            Sheets("OPTH").Select
            Range("D2").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
        origine.Select
                
                Range("H6:H30").Select
            Selection.Copy
            Sheets("OPTH").Select
            Range("D24").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
        origine.Select
                      
                Range("M6:M37").Select
            Selection.Copy
            Sheets("OPTH").Select
            Range("D49").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
        origine.Select
                Range("R6:R39").Select
            Selection.Copy
            Sheets("OPTH").Select
            Range("D81").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
        origine.Select
         
    
End Sub

Je vous remercie si vous pouviez m'apporter la solution

 

[WUTED]

Re : Copier des colonnes différentes dans une autre feuille

Bonjour Lorine,

Remplace ta déclaration de la variable origine par :

Dim origine As Worksheet
Set origine = ActiveSheet

Bonne journée.

 

[Lorine]

Re : Copier des colonnes différentes dans une autre feuille

Merci , c'est parfait