MessageBox Case oui ou non

Bonjour

J'ai ce code

Private Sub Job(sh$, plg$)
  Worksheets(sh).Range(plg) = ""
End Sub

Sub Effacement()
  Application.ScreenUpdating = 0
  Job "Courriers", "B83:E91,B94:E96,B12,E10:E12,F26,A203:G207"
  Job "Salariés", "B8:B10,B15:B17,B12,B13,B19,B18,B21," & _
    "B23,D8:D9,D16,D18,D20,D21,C26:D28,C50:" & _
    "D61,D73:E86,D88:E97,D99:E102"
  Job "Indemnités", "A201:C214": Job "CP", "C7:C18"
  Job "ES", "C5,C6,J12,J19,J26,B31": Job "FeuilCalcul", "B6:B14,E6:E7,E15:E18,E22,E24"
  Application.ScreenUpdating = -1: MsgBox "les données sont effacées"
  Worksheets("Salariés").Select: [A6].Select
End Sub

En amont de l'effacement j'aimerais rajouter un message box posant la question "Etes vous de vouloir effacer les données ?"

Si on répond Oui ca efface, si Non alors rien

Quelqu'un saurait il comment je peux rajouter cette demande à ce code

Merci

Salut FMAILYS,

ainsi, sans doute...

If MsgBox("Etes vous certain de vouloir effacer les données ?", vbQuestion + vbYesNo + vbDefaultButton2, "Effacement") = vbYes Then _
    Call Effacement

A+

Bonjour FMAILYS, le forum,

[EDIT] Bonjour curulis57

Regarde le cour du site: https://www.excel-pratique.com/fr/vba/boites_de_dialogue

Sub effacerB2()

    If MsgBox("Etes vous de vouloir effacer les données ?", vbYesNo, "Demande de confirmation") = vbYes Then
        'Ton code
        MsgBox "Les données sont effacées !"
    End If

End Sub

Cordialement,

Merci

Salut Xor,

tu tires aussi vite que mon ombre, dis donc...

Bonne soirée !