Bonsoir à tous,
Voici le code
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"...