@lermite : merci pour ta réponse.
Comme Zirak m'a fourni une solution sans bug d'Excel, donc je l'adopte !
Mais merci de m'avoir aidé.
@Zirak : merci, ça marche !
Sinon détrompe-toi, ce n'est pas la honte de ne pas savoir qui m'a orienté vers les formules (au minimum, mon pseudo m'en préserve), c'est juste que je maîtrise mieux les formules que le vba.
Dernier truc, dans une des feuilles où je veux mettre en oeuvre ton code, il y a déjà une macro qui fait beuguer ton code.
Tu pourrais m'aider à les rendre compatibles ?
Merci !!!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
With Target
Select Case Len(.Value) - Len(Replace(.Value, Chr(10), ""))
Case 1
.Font.Size = 7
Case 2
.Font.Size = 5
Case 1
.Font.Size = 7
End Select
End With
End If
End Sub