Sub recopierbas()

col = Chr(Selection.Column + 64)
lign = Selection.Row
a = Selection.Value

Do
    Selection.Value = a
    lign = lign + 1
    adress = col & lign
    Range(adress).Select
           
Loop Until Not (IsEmpty(Selection))

End Sub