Probleme avec ma Loop

Bonjour,

J'ai un fichier Excel contenant des données uniquement dans la collone A.

Chaque cellule de la collone A fait 6 caractères.

Avec la formule "droite" ou "right" (en anglais) je souhaite extraire les 3 derniers caractres de chaque cellule A sur la cellule B.

Cela fonctionne or j'ai un problème. Lorsque la cellule est vide dans la collone A la loop continue de tourner indéfiniment !

Comment remedier à ce problème ?

Voici ma macro :

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("B1").Select
    Do Until IsEmpty(Columns("A"))
    ActiveCell.FormulaR1C1 = "=RIGHT(RC[-1],3)"
    ActiveCell.Offset(1, 0).Range("A1").Select
    Loop
End Sub

Et mon fichier Excel ci joint

Merci à vous

Bonjour

Une façon de faire

Sub Essai()
 Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row).Formula = "=RIGHT(RC[-1],3)"
End Sub

Bonne journée

Merci beacoup à toi ça fonctionne à merveille