Retour à la ligne en fonction du nombre de caractères

Bonjour,

Je fais appel à vous car j'aimerais faire un code qui, quand il y a plus de 30
caractères dans ma cellule active, il retourne à la ligne.
Parfois le nombre de caractères pourra être d'une dizaine de caractères allant d'autre fois
à une soixantaine de caractères.

Cette chaîne de caractères est toujours écrite dans une cellule C fusionnée avec une cellule D.

J'ai essayé avec ma propre réflexion, l'enregistreur de macros et des codes sur internet mais rien ne
fonctionne.

Je vous met mon code :

[...]
intitule = "Veuillez saisir un intitulé"

if intitule <> "" then
	Range("C" & i).Select
	'ActiveCell.FormulaR1C1 = intitule

             If Len(intitule) > 30 Then

		Dim prem as string
		Dim deuz as string

		prem = left(intitule, 30)
		deuz = left(intitule > prem) 'mais cela ne fonctionne pas

		ActiveCell.WrapText = True

		ActiveCell.FormulaR1C1 = prem & vbLf & deuz

	     end if
end if

Ma chaîne de caractères s'écrit bien dans la cellule C fusionnée à la cellule D
mais il n'y a pas de retour à la ligne.