Vider la cellule d'un mot recherché et la cellule de la colonne suivante

Bonjour à vous le Forum,

Je reviens vers vous pour un nouveau sujet. Je suis toujours un débutant en VBA. Voici une partie de mon code :

With Sheets("Récapitulatif")
.Cells.Find(What:="Vestiaires").EntireRow.Value = ""
End With

Mais un soucis se présente car plusieurs tableaux se trouvent dans la même feuille et donc je ne voudrai pas "vider" la ligne entière associée au mot recherché mais seulement la cellule contenant ce mot et la cellule d'après (sur la même ligne mais sur la colonne d'après). Mes tableaux possèdent seulement deux colonnes.
Je pense que ce sujet est déjà paru mais après plusieurs recherches je ne trouve pas la solution.
Je vous remercie d'avance pour votre aide.

Bonjour,

Une proposition à tester :

Dim CelRech As Range

With Sheets("Récapitulatif")
     Set CelRech = .Cells.Find(What:="Vestiaires")
     Range(CelRech, CelRech.Offset(0, 1)).ClearContents
End With

Merci beaucoup Pedro22 ça marche !! Merci aussi pour ta rapidité !

Je te souhaite une très bonne journée et une bonne continuation.

OsoPorto a écrit :

Merci beaucoup Pedro22 ça marche !! Merci aussi pour ta rapidité !

Je te souhaite une très bonne journée et une bonne continuation.

Quel entrain ! Ravi d'avoir pu apporter mon aide, et merci pour ton retour et pour la validation.

Bonne continuation