Hello tous,
 
Votre aide me serait très bénéfique!
 
Je possède un tableau d'a peu près 40 000 lignes que je souhaite utiliser en base de données. cependant, j'ai des lignes fusionnées dans ma 1ère et 2ème colonne.
J'ai donc besoin d'annuler la fusion de ces lignes mais également de ré-écrire les données dans les cellules dé-fusionné devenue vide.
J'utilise donc la macro ci-dessous, trouvée sur internet:
 
Sub FindMergedCellsUnmergeThemAndFillThem()
 Dim MergedCell As Range, FirstAddress As String, MergeAddress As String, MergeValue As Variant
 Application.FindFormat.MergeCells = True
 Do
 Set MergedCell = ActiveSheet.UsedRange.Find("", LookAt:=xlPart, SearchFormat:=True)
 If MergedCell Is Nothing Then Exit Do
 MergeValue = MergedCell.Cells(1).Value
 MergeAddress = MergedCell.MergeArea.Address
 MergedCell.MergeArea.UnMerge
 Range(MergeAddress).Value = MergeValue
 Loop
 Application.FindFormat.Clear
 End Sub
 
Elle marche. Mais le temps de chargement est TRES long.
 
Quelqu'un saurait il m'aider pour optimiser cette macro?
 
Merci !