Merci, c'est plus facile avec le fichier.
Voici le code que tu peux mettre en allant dans le VBE (ALT+F11) et double-click sur ThisWorkbook, ne pas oublier de sauvegarder le fichier en type .xlsm (Fichier Excel avec Macro)
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Then End
If Not Application.Intersect(Target, Range("D:D, G:G, H:H")) Is Nothing Then
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Target.Value = UCase(Left(Target.Value, 1)) & LCase(Right(Target.Value, Len(Target.Value) - 1))
Application.EnableEvents = True
End If
Else
End If
End Sub