Bonjour
Plutot que de passer par une message box, on peut directement supprimer les données si elles sont présentes. Cela évite de se tromper.
Si cela te convient, Essaie ce code :
Sub rechercher_clic()
Dim plage As Range
Set plage = Range("C5:E21")
If Application.WorksheetFunction.Sum(plage) > 0 Then plage.ClearContents
UserForm1.Show 0
End Sub
Si ok, lors de ta réponse; clique sur le V vert à coté du bouton EDITER pour cloturer le fil
Crdlt