Fusionner plusieurs cellules d'une variable

Bonjour,

Voici ma problématique, j'ai défini une variable d'un texte à insérer en bas de tableau comme suit :

Dim ws As Worksheet
    Dim lastRow As Long
    Dim textToInsert As String

    ' Définir la feuille
    Set ws = ThisWorkbook.Sheets("Nom de la feuille")
    ThisWorkbook.RefreshAll

    ' Trouver la dernière ligne du tableau
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    ' Texte à insérer
    textToInsert = "Blablalbalbalbalblabalbla"

    ' Inseré le texte à la fin du tableau
    ws.Cells(lastRow + 2, 1).Value = textToInsert
    ws.Cells(lastRow + 2, 1).Font.Size = 12
    ws.Cells(lastRow + 2, 1).WrapText = True
    ws.Cells(lastRow + 2, 1).RowHeight = 110

Et je voudrais que ce texte en fin de tableau qui est inscrit dans une cellule, soit fusionné sur les quatre colonnes suivantes. Avez-vous une idée de comment je pourrais procéder ?

Merci pour votre aide

bonjour Gundal, un essai

With ws.Cells(lastrow + 2, 1).Resize(, 4)
          .ClearContents
          .Merge
          .Value = texttoinsert
          .Font.Size = 12
          .WrapText = True
          .RowHeight = 110
     End With

Bonjour BsAlv,

Parfait, merci beaucoup.

Bon après-midi,

Gundal