Agrandir une ligne avec VBA

Bonjour à tous,

Je suis en train d'écrire un programme en VBA et j'aimerai savoir si il existe une instruction qui permet d'agrandir automatiquement une ligne.

En effet, à un moment, mon programme écrit dans une plage de cellules un texte assez long, et je dois toujours manuellement agrandir la ligne pour que ça rende bien (je vous envoye des screens)

... Savez-vous comment je peux faire ?

Bonjour,

J'ai ce code, qui permet de faire un renvoie a la ligne tout en fusionnant les cellules.

Dim X As Double
If TypeName(Selection) = "Range" Then
    With Selection
        .MergeCells = False
        .WrapText = False
        .WrapText = True
        .HorizontalAlignment = xlHAlignCenterAcrossSelection
        .WrapText = True
        .EntireRow.AutoFit
        X = .Height
        .MergeCells = True
        .EntireRow.RowHeight = X
        .HorizontalAlignment = xlHAlignLeft
    End With
End If

j'ai se résultat ou cas ou