Sub TailleCarac_Par_Taillecellule2()
'ajuster les caractère à la taille de la cellule (largeur)
Dim NbCar%, TailleC%, Large&, Taille%, Text$, Hauteur&
Text = Cells(2, 3).Value
TailleC = Cells(2, 3).Font.Size
NbCar = Len(Text)
'----------------
Large = Cells(2, 3).ColumnWidth
TailleC = (Large * 11.3) / NbCar
Cells(2, 3).Font.Size = TailleC
Hauteur = TailleC * 1.3
Cells(2, 3).RowHeight = Hauteur
If Hauteur < 15 Then Cells(2, 3).RowHeight = 15
Cells(2, 3).VerticalAlignment = xlCenter
Range("C2").Font.Name = "Arial Narrow"
End Sub