Peut être une simplification

Bonjour et très bonne année 2015 à tous !!!


j'ai tapé ce code ci-dessous mais j'ai l'impression qu'il aloudit mon fichier Excel 🙁?! ... Alors je me dis qu'il peut surement être simplifié .....?!😕


Merci d'avance pour votre aide 🙂
Ksandraa


Sub Actualistion_consolidation()

'mise à jour de l'onglet consolidation
Sheets("Calculs").Activate
Range("A2:R2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Consolidation").Select
Range("c65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Calculs").Select
Range("V2:AE2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Consolidation").Select
Range("u65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub