Majuscule et nom propre

Bonjour , je cherche une macro pour mettre les cellules E5:F5 , E7:F7 , E8:F8 en majuscules et E6:F6 en nom propre.

Merci d'avance pour votre aide

Bonjour,

Une proposition

Sub test()
Dim Cel As Range
    For Each Cel In Application.Union([E5:F5], [E7:F7], [E8:F8])
        Cel = UCase(Cel)
    Next Cel
    For Each Cel In Range("E6:F6")
        Cel = Application.Proper(Cel)
    Next Cel
End Sub

A+

SUPER , c'est exactement ça.

Merci