Comme vous le savez, en écrivant un très long texte dans une cellule celle-ci s'agrandi au fur et à mesure. Pour parer à celà, voici le code pour l'adapter afin de ne voir qu'une seule ligne. Code à adapter selon le cas.
VB:
Dim deb As Byte, cel As range
deb = InStr(1, cel, ";") 'À remplacer par un point ou une virgule
If deb = 1 Then cel = Left(cel, deb) & vbLf & Right(cel, Len(cel) - deb)
ActiveSheet.Rows(6).Height = 13.5