Microsoft 365 Message Box oui/non

Sub Validation_AR()
With CommandButton5
arret = True
End With
ActiveCell.Offset(0, -3).Activate
    Selection.ClearContents
    ActiveCell.Offset(0, -5).Activate
    'Si réponse oui dans message box j'écris en gras si réponse non la macro continue
    Selection.Font.Bold = True ' Bloc optionel
    ActiveCell.Copy
    ActiveCell.Offset(0, -2).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
With CommandButton5
arret = False
End With
End Sub