Bonjour,

J'ai besoin de dé-fusionner des cellules placées en colonnes, jusqu'à présent j'utilise le code suivant cependant ce dernier a pour effet de défusionner la feuille entière. Du coup ma macro dure 10-12secondes alors que j'aurais juste besoin de défusionner la colonne U ...
Est-il possible de "limiter" ce code à la colonne U ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Miseenpage()
 
Sheets("Planning").Activate
 
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.Value
MergeAddress = MergedCell.MergeArea.Address
MergedCell.MergeArea.UnMerge
Range(MergeAddress).Value = MergeValue
Loop
Application.FindFormat.Clear
 
end sub