maj ou min colonne

Bonjour a tous,

je souhaiterais s' avoir comment faire pour mettre en majuscule ou en minuscule comme le code ci dessous mais par pour une seule ligne mais pour une colonne entiére(colonne non definis ex: A:A)



Sub majmin()
Dim chainecellule As String
chainecellule = Selection.Value
chainecellule = LCase(chainecellule)
Selection.Value = chainecellule

End Sub