Copier des colonnes différentes dans une autre feuille

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