Bonjour gloub,
Avec un code de ce genre oui :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then Target.Font.Size = 7
End Sub
En sélectionnant une cellule de la colonne B, on aura une taille de police de 7.