Remplacement de valeur dans cellule

Bonjour

J'ai un petit soucis.

J'extrais des données d'une base et je dois remplacer les valeurs abrégée d'une colonne par une valeur commune.

Les types de produit AASOL, AFFCL, AffaireCL et AFF doivent être remplacés par la valeur "Affaires"

Voici ma macro.

Sheets("Extract").Select
Cells.Replace What:="AASOL", Replacement:="Affaires", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Sheets("Extract").Select
Cells.Replace What:="AFFCL", Replacement:="Affaires", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Sheets("Extract").Select
Cells.Replace What:="AffairesCL", Replacement:="Affaires", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Sheets("Extract").Select
Cells.Replace What:="AFF", Replacement:="Affaires", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Il est possible de raccourcir ça en 1 seul segment ? Que dans le "WHAT", je puisse faire l'énumération des valeurs à changer pour "Affaires" au lieu de me répéter 4 fois.

De plus, lorsque la macro arrive au 4ème segment (Remplacer AFF par Affaires), elle change les résultats des trois autres segment puisqu'elle accroche sur les lettre AFF du mot Affaires...

Merci d'avance pour vos suggestions.