Mise en forme cellules

Option Explicit
Const MA_PLAGE As String = "B5:B42"
Sub Mise_en_majuscules()
Dim texte As Range, cellule As Range
Set texte = _
    Application.InputBox("Sélectionner une plage de cellules", _
    "Mise en majuscule", MA_PLAGE, , , , , Type:=8).SpecialCells(xlCellTypeConstants, 2)
For Each cellule In texte
cellule = StrConv(cellule.Text, vbUpperCase)
Next
End Sub

Sub Mise_en_majuscules()
    Dim texte As Range, cellule As Range
    Dim z, y As Long
    Dim a As Object
    Range("B5:B42").Select
    Selection.SpecialCells(xlCellTypeVisible).Select

    For Each a In Selection
        If a <> "" Then
            z = a.Row
            y = a.Column
            a = StrConv(a, vbUpperCase)
            Cells(z, y) = a
        End If
    Next
End Sub

Sub Mise_en_majuscules3()
    Dim texte As Range, z As Long, y As Long, a As Range
    Set texte = Range("B5:B42").SpecialCells(xlCellTypeVisible)
    For Each a In texte
    a = StrConv(a, vbUpperCase)
    Cells((IIf(Not IsEmpty(a), a.Row, a.Row)), (IIf(Not IsEmpty(a), a.Column, a.Column))) = StrConv(a, vbUpperCase)
    Next
End Sub

Set texte = Range("B5:B42,C12:C18,H15:H20").SpecialCells(xlCellTypeVisible)