Corriger un code

Bonjour, j'ai crée un code VBA permettant de corriger les données d'une colonne:

Sub conversion()

Dim cell As Range

For Each cell In Range("AY2:AY800")

If cell.Value = "*AUTOPIAS SA*" Then cell.Value = "*AUTOPIA SA*"

If cell.Value = "A. CARDONI" Then cell.Value = "CARDONI SARL"

If cell.Value = "A. PAULY-LOSCH SARL" Then cell.Value = "PAULY LOSCH SARL"

If cell.Value = "A.B. MONS" Then cell.Value = "A.B. MONS"

Next

End SubLe problème c'est que ma liste n'est pas fixe (donc ne s'arrete pas toujours à AY800)

Comment faire pour appliquer ce code à toute les cellules remplies de la colonne AY et non pas seulement jusqu'à AY800?

Merci

Bonjour,

Essaie comme cela.

Sub conversion()
Dim cell As Range
    For Each cell In Range("AY2:AY" & Range("AY" & Rows.Count).End(xlUp).Row)
        If cell.Value = "*AUTOPIAS SA*" Then cell.Value = "*AUTOPIA SA*"
        If cell.Value = "A. CARDONI" Then cell.Value = "CARDONI SARL"
        If cell.Value = "A. PAULY-LOSCH SARL" Then cell.Value = "PAULY LOSCH SARL"
        If cell.Value = "A.B. MONS" Then cell.Value = "A.B. MONS"
    Next
End Sub

Le numéro de la dernière ligne renseignée est déterminée avec l'instruction

Range("AY" & Rows.Count).End(xlUp).Row

A+

Merci frangy.