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