Private Sub CommandButton2_Click()
[A1].Select 'Pour enlever le contrôle au bouton'
If MsgBox('confirmer la fonction ?', vbYesNo, 'Confirmation') = vbYes Then
ActiveSheet.Unprotect Password:='toto'
Application.ScreenUpdating = False
'ICI LE CODE
ActiveSheet.Protect Password:='toto'
End If
End Sub