Sub Test()
If Range("B1") <> "" Then
If MsgBox("Voulez vous vraiment effacer le contenu de B1, A8:A46 et G8:G46??") = vbOK Then
Range("b1").ClearContents
Range("A8:A46").ClearContents
Range("G8:G46").ClearContents
Else
Exit Sub
End If
Else
MsgBox "Il n'y a pas de donnés à effacer", vbInformation, "Merci"
End If
End Sub