Affichage texte dans B,C,D si D est renseignée

Bonjour à tous,
Je rencontre un petit problème d'affichage.
Je souhaiterai afficher le texte de B5 sur 3 colonnes (ou dans 3 cellules). Sur B et C c'est ok, mais pas sur D car cette cellule contient déjà du texte.
Y a t-il un code VBA qui permette cet affichage sans agrandir les colonnes, ni supprimer le texte de D ?
Je joins un exemple dans ce post.
Merci pour votre aide.
PS : prenez soin de vous dans cette période difficile
Tchotcho31270

Salut Tcho,

ainsi, peut-être... ?

Private Sub Worksheet_Change(ByVal Target As Range)
'
If Not Intersect(Target, Columns(2)) Is Nothing Then
    iRow = Target.Row
    With Range("B" & iRow & ":C" & iRow)
        .WrapText = True
        .HorizontalAlignment = xlCenterAcrossSelection
    End With
End If
'
End Sub

A+

Bonsoir Curulis57, le forum,

J'ai essayé dans mon fichier exemple mais cela ne fonctionne pas.

Peut-être que ma version d'Excel 2010 est trop ancienne

Bonne soirée.