Changer la grosseur des caractères

Sub caractere12()
deblig = ActiveCell.Row
col = ActiveCell.Column
derlig = Cells(65536, col).End(3).Row
Application.ScreenUpdating = False
Range(Cells(deblig, col), Cells(derlig, col)).Characters(Start:=1, Length:=25).Font.Size = 12
End Sub

Sub police_caracteres()
'
' Cette macro permet de prendre les 25 premiers caractères d'une
' cellule et de les afficher en taille 12

'
    Do While ActiveCell.Value <> ""
    ActiveCell.Select
    With ActiveCell.Characters(Start:=1, Length:=25).Font
        .Size = 12
    End With
    ActiveCell.Offset(1, 0).Select
    Loop
End Sub