Dim Plage As Range
Set Plage = Application.InputBox("Sélectionnez la plage à verrouiller", "Sélection de cellules", Type:=8)
MsgBox ("La plage que vous avez sélectionnée est :" & Plage.Address)
If MsgBox("êtes-vous certain de valider ?" & Chr(13) & _
"Vous ne pourrez plus modifier les entrées.", vbQuestion + vbYesNo) = vbYes Then
ActiveSheet.Unprotect
ActiveSheet.Cells.Locked = False
Plage.Copy
Plage.Locked = True
ActiveSheet.Protect
End If