Salut Nicolas, Chris, Yeahou et le Forum
Regarde si tu peux adapter cette petite macro a ton application
Sub Copier_Special()
Dim Fusion As String
Dim Nbre As Byte
If ActiveCell.MergeCells = True Then
With ActiveCell
Fusion = .MergeArea.Address
Nbre = .MergeArea.Count
.MergeCells = False
.AutoFill Destination:=Range(Cells(.Row, .Column), Cells(.Row + Nbre - 1, .Column))
End With
Else
Fusion = ActiveCell.Address
End If
'Inserer la macro copier/coller ici
Application.DisplayAlerts = False
Range(Fusion).Merge
Application.DisplayAlerts = True
End Sub
Mytå