Effacer contenu cellule selon couleur

Bonsoir tous le monde,

je viens vers vous car j'ai une liste de 527 clients en colonne A.

Dans mon exemple ci-joint seulement quelque uns

J'ai besoin de separer le rouge du noir. en gros je souhaite que l'adresse en noir soit effacer tout en conservant les mots en rouge.

Est-ce possible?

Merci d'avance pour votre aide.

Salut Pouns,

voici ton fichier!

'
iRow = Cells(Rows.Count, 1).End(xlUp).Row
'
Application.ScreenUpdating = False
'
For x = 1 To iRow
    For y = 1 To Len(Range("A" & x).Value)
        If Range("A" & x).Characters(y, 1).Font.Color = RGB(0, 0, 0) Then
            Cells(x, 1) = Left(Range("A" & x), y - 1)
            Exit For
        End If
    Next
Next
'
Application.ScreenUpdating = True
'

A+

Super, merci beaucoup, car j'avais commencer à le faire à la main lol

Merci.