Bonjour Gerge et Céléda.
Greg, il n'y a rien qui fasse tourner ta boucle Do...Loop until.
Je suppose que ta boucle doit regrader chaque cellule de la colonne A, à prtir de A3, et s'arrêter dès que la valeur de la feuille "rechercher un client" est trouvée.
Dans ce cas, ta boucle serait:
Do until selection=sheets("rechercher un client").range("I1")
Selection.offset(1,0).select
Loop
(les .value ne sont pas nécessaires, car il s'agit de la valeur par défaut d'un objet range)
Cependant, ce type de boucle n'est pas à conseiller, car si ta liste est très longue, comme on sélectionne chaque cellule, le code ne sera pas très rapide.
Le mieux est d'utiliser la recherche qui existe sous excel, et donc sous VBA:
Et ta macro devient:
Sub Supprimer_un_client()
Worksheets("Feuil1").Range("A3").Select
Cells.Find(What:="R").ClearContents
end sub
Bonne journée. Laurent.