Modifier un code effacer

[ssb1]

Bonjour,
J’utilise actuellement le code ci-desoous pour effacer mes données.
Sub EffacerL()
Dim feu As Worksheet
If MsgBox(“ATTENTION ! Vous êtes sur le point d’effacer les données : voulez vous continuer ?”, vbYesNo + vbCritical + vbDefaultButton2, “Impression”) = vbNo Then Exit Sub
For Each feu In ActiveWorkbook.Sheets
If InStr(feu.Name, “Le Paramétrage”) Then
[B19:F120].ClearContents
End If
Next feu
End Sub
Maintenant je souhaite avoir un code pour que la machine exige un mot de passe pour autoriser l’effacement des données.
Merci d’avance - Cordialement.