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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas