Salut Matthieu-Paris,
quelque chose comme ça?
Avec ce code, tu sélectionnes la partie de ta feuille à traiter ou tu l'adaptes à ta situation et ça roule tout seul!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim rCel As Range
'
Application.ScreenUpdating = False
'
For Each rCel In Target.Cells
If rCel <> "" Then rCel = UCase$(Left$(rCel, 1)) & LCase$(Right$(rCel, Len(rCel) - 1))
Next
'
Application.ScreenUpdating = True
'
End Sub
A+