With .Range("G" & L)
.Value = UCase(TextBox3.Text)'Ucase pour majuscule
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
.Font.ColorIndex = 3
End With