Bonjour roberto
petit macro qui va bien "tu selectionnes la zone et tu envois la macro"
'macro pour la mise en majuscule de la premiere lettre de chaque cellule selectionnée
Sub Initiales()
Application.Cursor = xlWait
For Each cell In Selection
cell.Formula = StrConv(cell.Formula, 1)
Next cell
Application.Cursor = xlDefault
End Sub
'vbUpperCase 1 Convertit la chaîne en majuscules.
'vbLowerCase 2 Convertit la chaîne en minuscules.
'vbProperCase 3 Convertit la première lettre de chaque mot de la chaîne en majuscule.
'vbWide* 4* Convertit les caractères étroits (codés sur un octet) d'une chaîne en caractères larges (codés sur deux octets).
'vbNarrow* 8* Convertit les caractères larges (codés sur deux octets) d'une chaîne en caractères étroits (codés sur un octet).
'vbUnicode 64 Convertit la chaîne en Unicode à l'aide de la page de code par défaut du système.
'vbFromUnicode 128 Convertit la chaîne Unicode dans la page de code par défaut du système.
@+ hurricane