Fusionner Cellule VBA

Bonjour,

Je recherche un code VBA qui permettrais de fusionner une plage de cellules bien précise avec une condition.

Par exemple si A1=Pierre alors B1:E1 fusionnée

si A1=Jacques ou autre chose alors la plage est défusionnée

Je vous remercie de votre aide

Bonjour

Un fichier est TOUJOURS le bienvenu

Sub Macro1()
  Dim cond As String, plage As Range
  cond = "Pierre"
  Set plage = Range("B1:E1")
  If Range("A1").Value = cond Then
    plage.Merge
  Else
    plage.UnMerge
  End If
End Sub

A+ François

Ta macro fonctionne, mais j'aimerais quel soit automatique et non pas relier a un bouton.

Ci joint ma solution

A+ François