Sub convertirmajuscule() Dim plagecell As Range For Each plagecell In Selection If Application.WorksheetFunction.IsText(plagecell) Then plagecell.Value = UCase(plagecell) End If Next End Sub
Sélectionnez les cellules et rnn ce code. Il vérifiera chaque cellule de la plage sélectionnée, puis la convertira en texte majuscule.