En reprenant ce qu'a fait Cathy voilà ce que j'ai mis :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C5:C17"), Target) Is Nothing Then Target.Value = UCase(Target)
If Not Intersect(Range("D5
17"), Target) Is Nothing Then Target.Value = UCase(Target)
If Not Intersect(Range("E5:E17"), Target) Is Nothing Then Target.Value = UCase(Target)
If Not Intersect(Range("F5:F17"), Target) Is Nothing Then Target.Value = UCase(Target)
If Not Intersect(Range("G5:G17"), Target) Is Nothing Then Target.Value = UCase(Target)
End Sub
cela fonctionne, c'est à dire que toute les cellules passent en Majuscule.
Seulement c'est etremement long lorsque je valide la saisie. (pour passer à la cellule suivante.
Comment pourrai-je améliorer cela ?