Effacement de cellules

Bonjour,
Grâce à Mercatog je peux effacer des noms identiques dans une feuille à ceux que je rentre dans une autre feuille, je le remercie encore.
Mais maintenant et en plus de cette macro je souhaiterai effacer aussi le contenu des cellules qui sont à la gauche des noms.
Par ex:
Ayant dans la feuille "ORGA" dans la plage A9:B55 :
| A | B
______________________
09 | Monsieur | DUPONT |
_______________________
10 | Madame | LEGRAND |
________________________

Inscrivant dans la feuile "RELEVE" dans la plage "C6:B31" des noms et autres
comme par exemple:
| C | B |
_____________________
6 | Madame | LEGRAND |
______________________

Si je clique sur la macro alors elle efface le contenu des cellules A10 et B10 de la feuille"ORGA".
Merci pour votre aide, cordialement.0916paps

Pour vous aidez voici le code que m'a crée Mercatog :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim c As Range, v As Range, Plage As Range   With Sheets("ORGA") Set Plage = Union(.Range("B9:B55"), .Range("D10:D55"), .Range("F11:F55"), .Range("H11:H55")) End With For Each v In Sheets("RELEVE").Range("B6:B31") If v <> "" Then For Each c In Plage If InStr(c, v) > 0 Then c.ClearContents Next c End If Next v Set Plage = Nothing

---

Bonjour,


Tu peux utiliser "offset" ou "resize"

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim c As Range, v As Range, Plage As Range   With Sheets("ORGA") Set Plage = Union(.Range("B9:B55"), .Range("D1055"), .Range("F11:F55"), .Range("H11:H55")) End With For Each v In Sheets("RELEVE").Range("B6:B31") If v <> "" Then For Each c In Plage If InStr(c, v) > 0 Then Sheets("ORGA").Range(c.Offset(0, -1), c).ClearContents Next c End If Next v Set Plage = Nothing

---