Bonjour à tous,
dans l'exemple ci-inclus je cherche à garder les mêmes cellules fusionnées D2:N4 même si je supprime des colonnes entre ces cellules y'a t'il une solution pour ça ?
merci pour votre réponse, je viens de tester et ça marche comme je souhaitais
en revanche j'aimerais bien savoir est ce qu'il est possible de modifier le code pour l'appliquer sur toutes les feuilles du classeur sauf KALO & BATI
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