1ère lettre en Majuscule

Bonjour

Dans une feuille j'ai ce code que force les Majuscules dans une plage dans une plage de B3 à B29 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B29")) Is Nothing Then Target = UCase(Target)
End Sub

Je souhaiterai la même chose dans la plage de C3 à C29 mais seulement la 1ère lettre en Majuscule en prenant en compte les noms composés.
J'ai essayé d'ajouter :
If Not Intersect(Target, Range("C3:C29")) Is Nothing Then Target = Proper(Target)

Mais évidemment ça ne fonctionne pas.

Un petit coup de main ne serait pas de refus.
Merci