Fusionner des cellules et centrer

Bonjour,
Je suis en train de créer un petit fichier pour des mesures de débits... bref, a partir d'un userform, je rempli des textbox et les données viennent se reporter sur une feuille Excel.
Je voudrais que le texte rempli dans la textbox1 (à partir de l'userform2) viennent sur la feuille ANNEXE mais en fusionnant les cellules A, B, C et D , et centrant le texte à l'intérieur et en encadrant le tout.

Merci.

Bonjour Steph47,

A tester :

Private Sub CommandButton2_Click()
     Sheets("Annexe").Select

     Dim i As Integer
     i = Sheets("Annexe").Range("a65536").End(xlUp).Row + 4         

      ' cellules A, B, C, D à fusionner et centrer
     Range(Cells(i, 1), Cells(i, 4)).Merge
     Range("A" & i).Value = TextBox1
     Range("A" & i).Font.Bold = True
     Range("A" & i).HorizontalAlignment = xlCenter
     Range(Cells(i, 1), Cells(i, 4)).BorderAround LineStyle:=xlContinuous

     Me.TextBox1 = ""

     Unload Me

End Sub

Tout simplement !

Merci beaucoup !