Sub convertirminiscule() Dim plagecell As Range For Each plagecell In Sélection If Application.Worksheet Function.IsText(plagecell) Then plagecell.Value= LCase(plagecell) End If Next End Sub Ce code vous