Et pourtant l'une des lignes ne s'ajuste pas vraiment.
C'est à dire qu'elle semble avoir une ligne de "texte" vide en bas de cellule.
J'ai bien vérifié, il n'y a rien après le texte, pas de retour chariot, pas de caractère invisible
En fait, je suis sur une piste, il semble que cela soit lié au nombre de caractères dans la cellule qui parfois excède 255.
Toutefois, je tente de "corriger" la hauteur de ligne en utilisant ce code sans succès :
Code:
If Len(Cel) > 255 Then
With ActiveCell.Rows
.RowHeight = (ActiveCell.RowHeight - 15)
Cel.VerticalAlignment = xlTop
End With
Else
Cel.Rows.AutoFit
Cel.WrapText = True
Cel.VerticalAlignment = xlTop
End If
Voir le fichier en pièce-jointe.
On doit pouvoir faire bien mieux notamment en accélérant le code qui dans cette partie ralentie considérablement l'exécution de la macro.
Merci