Private Sub CommandButton1_Click()
Dim PL As String 'déclare la variable PL (Premiere Lettre)
PL = Mid(Selection.Cells(1, 1), 1, 1) 'définit la première lettre du premier mot de la premiere cellule de la sélection
If Asc(PL) < 97 Then traite_casse ("min") Else traite_casse ("maj") 'agit en fonction du code ascii de PL
End Sub
Sub traite_casse(comment As String)
Dim cellule As Range
For Each cellule In Selection
If (comment = "maj") Then
cellule = UCase(cellule)
Else
cellule = LCase(cellule)
End If
Next cellule
End Sub