Document en majuscule sauf une colonne

bonjour

j'ai besoin d'aide j'ai créée une macro pour mettre toute mon document en majuscule mais je souhaiterais pouvoir mettre mon document en majuscule sauf la colonne A

merci de votre aide

Cordialement

Sub Majuscule()
Dim plage As Range, cel As Range
Dim I As Integer
Application.ScreenUpdating = False
For I = 1 To Worksheets.Count
Set plage = Sheets(I).UsedRange
For Each cel In plage
cel.Value = UCase(cel)
Next
Next I

end sub

Bonjour,

Voici un essai :

Sub Majuscule()

Dim plage As Range, cel As Range
Dim I As Integer

Application.ScreenUpdating = False
For I = 1 To Worksheets.Count
    Set plage = Sheets(I).UsedRange
    For Each cel In plage
        if cel.column > 1 then cel.Value = UCase(cel)
    Next
Next I

end sub

Cdlt,

merci pour votre aide ça fonctionne parfaitement

cordialement

Avec plaisir !

Cependant, ce genre de code peut s'exécuter longuement ! Si jamais, voici une alternative :

Sub Majuscule()
dim ws as worksheet, i&, k&, t
For each ws in Worksheets
    with ws.UsedRange
        t = .value2
        For i = lbound(t) to ubound(t)
            for k = 2 to ubound(t, 2)
                t(i, k) = ucase(t(i, k))
            next k
        Next i
        .value2 = t
    end with
Next ws
end sub

Cdlt,