VBA:Routine ne marche pas via le Clic Bouton

Bonjour,
J'ai codé un petit bout de code pour fusionner/defusionner une plage de cellule:

Sub CommandButton1_Click()
Dim i As Integer
For i = 65 To 130
Range("H" & i & ":J" & i).Merge (False)
Range("K" & i & ":M" & i).Merge (False)
Range("N" & i & ":T" & i).Merge (False)
Next i
End Sub

Si je lance le code via le button de test > de VB, les cellules se fusionnent : Impec.
Cependant, si je clic sur le boutton si dessus, je me retrouve avec une erreur 1004 ???
Le bandeau de debug se positionne sur la ligne RANGE("H...(La premiére)

QQu a une idée
Merci