'=============================='
Sub macroClear()
Dim reponse As String
reponse = MsgBox(prompt:=" Êtes vous sur de vouloir tout supprimer ? Cette action est irréversible. ", Buttons:=vbYesNo, Title:="Attention")
If reponse = vbYes Then
clear_all
End If
End Sub