Fusionner puis afficher le texte au milieu?

Je voudrais fusionner de Cells(a,b) à Cells(c,d)

C'est-à-dire fusionner de ligne a à ligne c et de colonne b à colonne d puis afficher "texte" au milieu de cet ensemble de cellules .

Sub test()
Dim a, b, c, d As Integer
a = 1
b = 3
c = 5
d = 7
'...
End Sub

Merci d'avance

Bonsoir

A vérifier

Sub test()
Dim a As Long, b As Integer, c As Long, d As Integer

  a = 1
  b = 3
  c = 5
  d = 7
  With Range(Cells(a, b), Cells(c, d))
    .Merge
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
  End With
  Cells(a, b) = "texte"
End Sub

C'est parfait:) Merci. Problème résolu

Rechercher des sujets similaires à "fusionner puis afficher texte milieu"