[VB] Test de fusion de cellule

Bonjour,

A1 est une date de début , A2 une date de fin.
Parfois les utilisateurs fusionnent les 2 cellules et mettent la date de fin et de début dans la même cellule fusionné.

Donc je fais un script vba du genre :
Private Sub CommandButton1_Click()

Dim mmchaine As String
Dim Madate As String

If ActiveCell.MergeCells() Then

machaine = Right(Cells(1, 1).Value, 10)
machaine = Madate
Cells(2, 1) = machaine
Else
Madate = Cells(1, 2)
Cells(2, 1) = Madate
End If
End Sub
Mais la syntaxe est bonne ? Pouvez vous m'éclairer ?