Bonjour DUCL44, le Forum
Je ne sais plus à qui je disais récemment : Les Cellules Fusionnées sont une source de problèmes
Personnellement, je n'utilise jamais de Cellules Fusionnées dans mes programmes.... En fait, c'est une "facilité" qu'Excel offre à ceux qui ont mal conçu leur tableau et qui, arrivé à la fin de leur mise en page, s'aperçoivent qu'ils ont besoin d'arranger la présentation, alors là, les cellules fusionnées peuvent être un dépannage. Mais dans tous les autres cas c'est une source de M.... !
Enfin pour te sortir de ce mauvais pas, voici une macro qui devrait t'arranger ce problème :
Sub InsertRowWithFormatCopy()
Dim L As Integer
Dim Adresse As String
Adresse = ActiveCell.Address
L = ActiveCell.Row
With ActiveSheet
.Rows(L).Insert Shift:=xlDown
.Rows(L - 1).Copy
.Rows(L).PasteSpecial Paste:=xlFormats
End With
Application.CutCopyMode = False
Range(Adresse).Select
End Sub
Bon Samedi
@+Thierry