Macro : une colonne à transformer en minuscule sauf 1ère lettre

Bonjour,
Juste avec une boucle sur chaque cellule

Dim I As Long
For I = 5 To 402
    Sheets("Feuil3").Range("T" & I).Value = StrConv(Sheets("Feuil3").Range("T" & I).Value, vbProperCase)
Next I

A quoi cela sert-il de poser 2 fois la même question?

https://forums.commentcamarche.net/forum/affich-32093203-transformer-une-colonne-en-minuscules-sauf-la-1ere-lettre#newanswer

Re,
Pourquoi avoir changer de pseudo ?
https://forums.commentcamarche.net/forum/affich-32092237-vba-copier-le-contenu-d-une-cellule-et-non-sa-formule#p32092963
D'ailleurs, tu aurais pu poser ce problème dès le départ, ca serait déjà terminé
Maquette avec d'autres rangées de cellules (pas envie d'aller me balader dans T...AU )

Option Explicit
'-------
Sub nom_propre()
Dim Nbre As Integere, Tampon, LIg As IntegerApplication.ScreenUpdating = False
With Sheets(2)
    Nbre = .Range("B2:J2").Columns.Count
    Tampon = .Range("B2:J2")
End With

With Sheets(3)
    For LIg = 1 To Nbre
        Tampon(1, LIg) = Application.Proper(LCase(Tampon(1, LIg)))
    Next
    .Range("B5").Resize(1, Nbre) = Tampon
End With
End Sub

remarque:
Le texte au dpart est en majuscules: il faudrait dons utiliser 2 fois ou imbriquer strconv d'abord enminuscules (Vblowercase) puis la lettre en capitale(vbpropercase)

c'est pour cela qur j'ai pris l'option <ital>Application.Proper(LCase(Tampon(1, LIg)))
</ital>
Michel

Merci pour vos réponses !

Je ne connais pas vraiment le fonctionnement des forums, et je n'arrivais pas à retrouver mon 1er post, j'ai cru qu'il n'avait pas était bien été édité..
Entre temps avec d'autres recherches, j'ai trouvé cette solution, et avec votre aide, tout marche très bien !
Maintenant, j'ai d'autres problèmes mais je vais essayer de les résoudre toute seule.

Merci encore !