Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' déclenchement de la macro lors du changement de cellule ' Target represente la cellule selectionnée 'pour la cellule B6: If Target.Address = "$B$6" Then 'retirer la fusion Range("A6:A36").UnMerge 'appel d'une autre macro Call mamacro2 End If End Sub