Changer la casse de la 1ère lettre d'une cellule

Bonjour,

Je cherche à intégrer dans un code une ligne qui change la 1ère lettre d'une chaine en majuscule, si par erreur elle était en minuscule.

Je n'arrive pas à le formuler.

Pourriez vous m'aider svp ?

Merci

Exemple :

A1234 => aucune action

A5698 => aucune action

a3262 = > A3262

etc..

Bonjour Alcibiade, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim CEL As Range 'décalre la varaible CEL

For Each CEL In Range("A1:A4") 'boucle sur toutes les cellules CEL de la plage A1:A4 (à adapter à ton cas)
    CEL.Value = Application.WorksheetFunction.Proper(CEL.Value) 'remplace la première lettre de chaque mot par une majuscule
Next CEL 'prochaine cellule de la boucle
End Sub

Tip top !

Merci beaucoup