Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D2:N4]) Is Nothing Then [D2:N4].UnMerge: [D2:N4].Merge
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "KALO" And Sh.Name <> "BATI" Then _
If Not Intersect(Target, Sh.[D2:N4]) Is Nothing Then Sh.[D2:N4].UnMerge: Sh.[D2:N4].Merge
End Sub
Bah il faut bien sûr supprimer les Worksheet_Change que vous aviez mises dans toutes les feuilles !!!Bonjour Job,
je viens de faire un test et j'ai découvert que le code est appliqué sur toutes les feuilles mêmes KALO & BATI