Sub message()
Dim variable
Dim variable1
variable = MsgBox('Voulez vous reèllement effacer les données ?', vbYesNo, 'Effacement')
If variable <> vbYes Then GoTo line1
variable1 = Application.InputBox(prompt:='Confirmez vous l'effacement (o/n)?' _
, Title:='Effacement', Left:=500, Top:=300, Type:=2)
If variable1 <> 'o' Then GoTo line1
Range('B6:E12').Select
Selection.ClearContents
line1:
End Sub