Empêcher les pointillés de sélection

[isa44]

Bonjour ,
lors de l'exécution du code suivant les dernières cellules copiées restent entourées par les pointillés de sélection , comment les enlever ?

Option Explicit
Dim origine As Worksheet

              
Sub COPIE_B_dans_OPTH()

Set 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
        Application.ScreenUpdating = False
        
            Range("C6:C26").Copy
            Sheets("OPTH").Select
            Range("D2").Select
            Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
                
        origine.Select
                Range("H6:H30").Copy
            Sheets("OPTH").Select
            Range("D24").Select
            Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
                
        origine.Select
                Range("M6:M37").Copy
            Sheets("OPTH").Select
            Range("D49").Select
            Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
                
        origine.Select
               [COLOR="#FF0000"] Range("R6:R39").Copy[/COLOR]
            Sheets("OPTH").Select
            Range("D81").Select
            Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        origine.Select
         
        Application.ScreenUpdating = True
    
End Sub

 

[néné06]

Re : Empêcher les pointillés de sélection

Bonjour Isa

essayes
Application.CutCopyMode = False

A+

 

[isa44]

Re : Empêcher les pointillés de sélection

Super merci