Public Mmi As Boolean
Sub MajMin()
Dim Lg%, i%
Lg = Range("A65536").End(xlUp).Row
If Mmi = False Then
For i = 2 To Lg
Cells(i, 1) = UCase(Cells(i, 1)) 'majuscule
Next i
Mmi = True
Else
For i = 2 To Lg
'Cells(i, 1) = LCase(Cells(i, 1)) 'minuscule
Cells(i, 1) = Application.Proper(Cells(i, 1)) 'Nom propre
Next i
Mmi = False
End If
End Sub