Mettre des cellules en majuscules après validation

Bonjour,

Je cherche, au moyen d'un code, de mettre l'ensemble d'une colonne en majuscule après l'avoir validée.

Mes recherches m'ont fait trouver quelques codes, mais rien ne fonctionne.

Voici celui que j'ai essayé:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count = 1 And Not Intersect(Target, Range("Q4:Q30000")) Is Nothing Then

If Target <> UCase(Target) Then Target = UCase(Target.Value)

End If

End Sub

De plus, avec cette solution (qui ne marche pas) ce n'est pas infini...

Merci de votre aide

Bonjour

A tester

Sub Majuscules()
Dim Cel As Range

  Application.ScreenUpdating = False
  For Each Cel In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    Cel = UCase(Cel)
  Next Cel
End Sub