Fusion de cellules en fonction de plusieurs critères

Bonjour,

Je suis à la recherche d'une solution pour fusionner des cellules identiques en fonction de 2 critères

je souhaite fusionner les cellules par colonne ( uniquement les 6 premières colonnes)

- si la valeur de la cellule = la valeur de la cellule en dessous

- et si la valeur de la colonne C = la valeur de la colonne C en dessous

Dans l'exemple j'ai un onglet avec le fichier de départ et un onglet avec ce que je souhaite obtenir

Je sais que ce n'est pas recommandé si on veut traiter le fichier par la suite , mais c'est la dernière étape avant de la transformer en pdf pour l'envoi au client.

Merci d'avance,

bonjour,

mon sentiment m'interdit de fusioner des cellules, mais ceci est la solution

Sub Merging()
     With ActiveSheet.Range("B3:G100").SpecialCells(xlConstants)
          Application.DisplayAlerts = False
          For Each c In .Cells
               If c.Row > 1 Then
                    Set c1 = c.Offset(-1).MergeArea.Cells(1)
                    If c.Value = c1.Value Then c1.Resize(c.Row - c1.Row + 1).Merge
               End If
          Next
          Application.DisplayAlerts = False
     End With
End Sub

C'est parfait ! ca fonctionne très bien.

Merci beaucoup

un erreur, le 2ieme " Application.DisplayAlerts = False", ce False doit être True