VBA Majuscule 1ère lettre de phrase

Bonjour au forum,

Sub ess()
Dim Cellule 'de Mytå
    Application.ScreenUpdating = False
            '********* contrôle saisie ************
    For Each Cellule In Array("d11", "d12", "d13", "d15", "d16", "d20")
            Range(Cellule) = Application.Proper(Range(Cellule))
        If IsEmpty(Range(Cellule).Value) Then
            Range(Cellule).Activate
            MsgBox ("Champ  " & ActiveCell.Offset(0, -1) & "  Obligatoire")
            Exit Sub 'Exit For
        End If
        Range("d11") = UCase([d11]) 'majuscule
    Next Cellule
End Sub

Dans la ligne :

  Range(Cellule) = Application.Proper(Range(Cellule))

Les 1ères lettres de chaque mots sont mise en majuscule, mais je voudrais uniquement

la 1ère lettre de la phrase.

Exemple: Vis à bois frais bomb Pozi ac znj

Je voudrais juste le "V" de vis en majuscule et ignorer le reste.

quel serait le bon code ?

Bon dimanche

Claude.

Claude,

Veux-tu essayer ce code ?

Sub ess()
Dim Cellule 'de Mytå
    Application.ScreenUpdating = False
            '********* contrôle saisie ************
    For Each Cellule In Array("d11", "d12", "d13", "d15", "d16", "d20")
            Range(Cellule) = UCase(Left(Range(Cellule), 1)) & Right(Range(Cellule), Len(Range(Cellule)) - 1)
        If IsEmpty(Range(Cellule).Value) Then
            Range(Cellule).Activate
            MsgBox ("Champ  " & ActiveCell.Offset(0, -1) & "  Obligatoire")
            Exit Sub 'Exit For
        End If
        Range("d11") = UCase([d11]) 'majuscule
    Next Cellule
End Sub

Bonsoir à tous,

Merci Raja, c'est nickel

à+....Claude.

re,

Précision:

il faut mettre cette ligne après le End If

sinon, si cellule vide ---> provoque une erreur.

    For Each Cellule In Array("d11", "d12", "d13", "d15", "d18", "d20")
            If IsEmpty(Range(Cellule).Value) Then
                Range(Cellule).Activate
                MsgBox ("Champ  " & ActiveCell.Offset(0, -1) & "  Obligatoire")
                Exit Sub 'Exit For
            End If
        Range(Cellule) = UCase(Left(Range(Cellule), 1)) & Right(Range(Cellule), Len(Range(Cellule)) - 1)

Comme çà c'est bon

encore merci

Claude.