Sub Minuscules()
ChangerCasse
End Sub
Sub Majuscules()
ChangerCasse vbUpperCase
End Sub
Sub NomPropre()
ChangerCasse vbProperCase
End Sub
Private Sub ChangerCasse(Optional Casse As VbStrConv = vbLowerCase)
Dim sheet As Worksheet, cell As Range
Application.ScreenUpdating = False
For Each sheet In Worksheets
For Each cell In sheet.Range("B5:C2000")
If Len(cell) Then
cell = StrConv(cell, Casse)
End If
Next
Next
End Sub