format de cellule via code vba

Bonjour,

J'ai un petit soucis avec le format d'une cellule qui ne s'applique pas
quand les infos sont envoyées par macro.

Je m'explique:

Dans ma feuille "devis" en cellule A je récupère des infos de ma feuille
"prepa devis gauche"envoyées par une macro ci-dessous.
Je rencontre le cas qu'une cellule doit contenir plusieurs phrases, donc
j'ai formaté ma cellule avec "renvoyer à la ligne automatiquement". Mais, la
cellule ne s'aggrandit pas manuellement.
Je pense qu'il faut intervenir sur le code?

Merci d'avance pour votre aide
Pauline

Sub calculerdevis()
With Sheets("devis")
For i = 10 To 500
num2 = Sheets("devis").Range("A65536").End(xlUp).Row + 1
If Sheets("prepa devis gauche").Range("b" & i) <> 0 Then
Sheets("devis").Range("a" & num2) = Sheets("prepa devis gauche").Range("c" &
i)
If Sheets("prepa devis gauche").Range("b" & i) <> 0 Then
Sheets("devis").Range("b" & num2) = Sheets("prepa devis gauche").Range("d" &
i)

Next i
End With
Sheets("devis").Select
End Sub