Salut Petchy et tout le forum.
C'est sûrement pas le plus simple et le plus efficace, mais cette procédure doit fonctionner (la variable à entrer est la lettre de la colonne)
Sub ColonneMaj(Colonne As String)
Dim Cellule As Range
For Each Cellule In Range(Colonne & "1:" & Colonne & Range(Colonne & "65536").End(xlUp).Row)
Cellule = UCase(Cellule)
Next Cellule
End Sub
Sub essai()
ColonneMaj ("B")
End Sub
Bonne soirée.
Laurent.