Police d'écriture uniforme dans les cellules

Bonjour, je souhaiterais mettre en place un tableau qui sera en réseau et utilisé par différents utilisateurs, mais j'aimerais que la police d'écriture dans les cellules vides et de couleur grise soit toujours identiques (avec également une majuscule au nom et au prénom).

Car si chacun des utilisateurs font des modifications de police d'écriture, cela risque d'être un peu confus à la longue.

Bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
'on définit les champs d'application, ici pour la Feuille 02
If Not Application.Intersect(Target, Range("D7:L27, D40:L46, D51:L56, D58:L58")) Is Nothing Then
With Target.Font
        .Name = "Times New Roman"
       .FontStyle = "Gras"
       .Size = 12
    End With
      Target.Value = Application.Proper(Target.Value)
    End If
    End Sub

Cordialement

Merci beaucoup, cela marche impeccablement.

Est-il possible de faire également 2 choses

J'aimerais que les cellules des responsables soient en Arial-Gras-Italique et en 14 et de couleur bleue.

Est-il possible de bloquer ces polices, une fois établie, afin que personne ne puisse les modifier

Est-il possible que les lignes D5-L5. D38-L38 et D49-L49 soient avec la police Arial Gras en 14 et de couleur bleue.

Est-il possible également de bloquer ces polices afin que personnes ne puissent les toucher.

Merci.

Bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage1 As Range, Plage2 As Range
Set Plage1 = Range("D7:L27, D40:L46, D51:L56, D58:L58")
Set Plage2 = Range("D5:F5,G5:I5,J5:L5")
Application.EnableEvents = False
If Not Application.Intersect(Target, Plage1) Is Nothing Then
    With Target.Font
        .Name = "Times New Roman"
       .FontStyle = "Gras"
       .Size = 12
    End With
      Target.Value = Application.Proper(Target.Value)
    'J'aimerais que les cellules des responsables soient en Arial-Gras-Italique et en 14 et de couleur bleue.
ElseIf Not Application.Intersect(Target, Plage2) Is Nothing Then
    With Target.Font
        .Name = "Arial"
        .FontStyle = "Gras italique"
        .Size = 14
        .Color = -4165632
    End With
End If
Application.EnableEvents = True
End Sub

Cordialement