Empêcher les pointillés de sélection

isa44

XLDnaute Occasionnel
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 ?

Code:
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
 

Discussions similaires


Haut Bas