Bonjour ! ou re-Bonjour !!! lol

J'ai trouvé ce code (Ci-joint en dessous) sur un forum, il fonctionne mais je voudrais savoir si il n'y as pas moyen de le simplifier.

D'autre part, je souhaiterais plutôt utiliser un "iLastRow" car ce traitement actuel prend plus de temps !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 Sub Majuscule()
 
'déclarations des variables
Dim Valeur As String
Dim Plage, Cellule As Range
 
Set Plage = Range("A1:A15000") 'Colonne concernant les noms
 
For Each Cellule In Plage
Valeur = Mid(Cellule.Value, 2)
Valeur = LCase(Valeur)
Valeur = UCase(Mid(Cellule.Value, 1, 10))
Cellule.Value = Valeur
Next Cellule
 
End Sub
 
Sub Minuscule()
 
'Déclaration des variables
Dim Valeur As String
Dim Plage, Cellule As Range
 
Set Plage = Range("B1:B15000") 'Colonne concernant les prénoms
 
For Each Cellule In Plage
Valeur = Mid(Cellule.Value, 2)
Valeur = LCase(Valeur)
Valeur = UCase(Mid(Cellule.Value, 1, 1)) & Valeur
Cellule.Value = Valeur
Next Cellule
 
End Sub
*----------------------------------*
Je vous remercie
Bonne aprés-midi !!