Sub ref1()
'
' ref1 Macro
'
'Sub effacer_1 ere ref()
If MsgBox("Etes-vous certain de vouloir effacer le contenu de la 1 ere REF et de le sauvegarder ?", vbYesNo, "Demande de confirmation") = vbYes Then
Sheets("CT").Unprotect "toto"
Sheets("DE").Unprotect "toto"
Range("C28:C29,C30,C31,C32,C33,C35:C37").Copy
Sheets("CT").Select
ActiveSheet.Unprotect "toto"
Range("e8").Select
Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("DE").Select
Range("c47").Copy
Sheets("CT").Select
Range("e17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("CT").Select
Range("c48").Copy
Sheets("CT").Select
Range("e18").Select
Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("CT").Select
Range("c49").Copy
Sheets("CT").Select
Range("e19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("CT").Select
Range("D5").Select
Application.CutCopyMode = False
Range("C28:C29,C30,C31,C32,C33,C35:C37,C38:C44,C38:C44,C45,C48").ClearContents
Range("A24").Select
Sheets("CT").Protect "toto", True, True, True
Sheets("CT").Protect "toto", True, True, True
MsgBox "Le contenu de la 1 ere REF a été effacé et sauvegardé !"
End If
End Sub