ActiveSheet.Paste: err. Impossible de modif 1 cellule fusionnée

Bonjour,
Voici la macro qui me pose problème sur la version 23 de mon fichier xls alors que sur les versions précédentes, cela fonctionne.
Je suppose avoir réaliser des modifications de mon fichier entre v22 et v23 qui ne sont pas compatibles avec la macro.
Pourriez vous m'aider à trouver l'origine de cette erreur?

Sub ajout_ligne()

Application.ScreenUpdating = False

ActiveSheet.Unprotect
ligne_max = Range("b1").Value
Range("A19").Select
Selection.End(xlDown).Select
Range(Selection, Cells(ActiveCell.Row, 189)).Select
Selection.Copy
Cells(ligne_max + 1, 1).Select
ActiveSheet.Paste
Range(Cells(ligne_max + 1, 2), Cells(ligne_max + 1, 2)).Select
Selection.ClearContents
Range("A19").Select

Application.ScreenUpdating = True

End Sub

Explication de la macro:
- copie de la ligne 20 (189 cellules avec formules, conditionnel, ...)
- collage de cette ligne en fin de tableau (après la dernière ligne) avec incrémentation du n° d'ordre (Nbre de la cellule en colonne A)

Problème:
Blocage à la ligne en gras
Le message d'erreur:
Erreur d'exécution '1004':
Impossible de modifier une cellule fusionnée

Merci