Oui, j'ai une solution pour trouver toutes les cellules fusionnées dans la feuille excel:
*********** Début de code ********Sub RechCellulesFusionnées()
Dim wCell As Range, ValeurMerge As String ActiveCell.CurrentRegion.Select
ValeurMerge = "Liste des cellules fusionnées :" & Chr(13)
For Each wCell In ActiveCell.CurrentRegion If wCell.MergeCells = True Then
If (Not IsEmpty(wCell.Value)) Then
ValeurMerge = ValeurMerge & wCell.Address & " Cellule fusionnée
principale" & Chr(13) Else
ValeurMerge = ValeurMerge & wCell.Address & Chr(13) End If End If
NextMsgBox ValeurMergeEnd Sub*********** Fin de code **********
Si tu as beaucoup de cellules dans ta plage, n'affiche pas le msgbox
bye
Michel