XL 2019 Changement de casse( 1ere lettre en majuscule) dans plusieurs colonnes

Bonsoir a tous

je veux changer la 1ere lettre du mot en majuscule dans une colonne
pour ce faire , Patrick Toulon avait fat ce code qui fonctionne tres bien, mais maintenant je voudrais que ca fonctionne également dans d’autres colonnes

Par exemple [A3:A33])_ [G3:G33]) _[[I3:I33]) mais je ne sais pas comment rajouter dans le code

Merci de votre aide

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [F3:F33]) Is Nothing Then Target.Value = Application.Proper(Target.Value)
Application.EnableEvents = True
End Sub