[Excel 2007][/VBA]

Bonjour a tous et toutes, forum bonjour,


Voila je souhaiterai mettre la premiere lettre du premier mot d'une phrase en MAJUSCULE en GRAS et ROUGE, mais ca plante et je ne trouve pas l'erreur.

Si quelqu'un veut bien me depanner, hé bien ca serai super sympa.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Variant
For Each Cel In Range("G2:H27")
Cel.Select
ActiveCell = UCase(Left(ActiveCell, 1)) & Right(ActiveCell, Len(ActiveCell) - 1)
    With ActiveCell.Characters(1, 1).Font
            .Name = "Arial"
            .FontStyle = "Gras"
            .Size = 14
            .ColorIndex = 3
    End With
Next Cel
End Sub
Merci d'avance et bonne apres midi a tous

Raymond