Bonjour le forum,
TOUT fonctionne bien avec les conseils de patricktoulon pour un autre problème.
Maintenant j'ai les domaines suivant à dé-fusionner.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
"G8:I8,G9:I9,G10:I10,G11:I11,G13:I13,G14:I14,G15:I15,G16:I16,G26:I26,G27:I27,G28:I28,G29:I29,G31:I31,G32:I32,G33:I33,G34:I34,G44:I44,G45:I45,G46:I46,G47:I47,G49:I49,G50:I50,G51:I51,G52:I52,G62:I62,G63:I63,G64:I64,G65:I65,G67:I67,G68:I68,G69:I69,G70:I70"
Voici la macro faites par patricktoulon concernant mon premier problème.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub DefusionnerCellules()
    Dim addr As String
    With ActiveSheet
        For Each Cel In Range(Cells(8, "G"), Cells(Rows.Count, "G").End(xlUp))
            If Cel.MergeCells = True Then
                addr = Cel.MergeArea.Address
                Couleur = Cel.MergeArea(1).Interior.Color
                Cel.MergeCells = False
                Range(addr).Interior.Color = Couleur
            End If
        Next
    End With
End Sub
Où dois-je mettre les noms de domaines dans la macro ou faire autre macro?
Merci d'avance pour vos conseils
Bien cordialement