Sub MasquePremierCaractères(Cell As Range)
Const CelluleModèle = "A1"
If IsEmpty(Cell) Then Exit Sub
If VarType(Cell.Value) <> vbString Then Exit Sub
With Cell.Parent.Range(CelluleModèle)
Cell.Interior.ColorIndex = .Interior.ColorIndex
Cell.Interior.Color = .Interior.Color
Cell.Characters(Start:=1, Length:=1).Font.ColorIndex = .Interior.ColorIndex
Cell.Characters(Start:=1, Length:=1).Font.Color = .Interior.Color
Cell.Characters(Start:=2, Length:=Len(Cell.Value) - 1).Font.Color = .Font.Color
Cell.Characters(Start:=2, Length:=Len(Cell.Value) - 1).Font.ColorIndex = .Font.ColorIndex
End With
End Sub