Sub Copy_Cell()
Dim Source As Range
Dim I As Single
Set Source = Worksheets("Feuil1").[B2]
Source.Copy
Worksheets("Feuil2").Select
With Range(Source.Address).MergeArea
.Select
.PasteSpecial Paste:=xlPasteAll
.PasteSpecial Paste:=xlPasteFormats
.Merge
.RowHeight = Source.RowHeight
I = 0.5: Do
.ColumnWidth = (Source.ColumnWidth / .Count) * I
I = I + 0.01
Loop Until .Width >= Source.Width
End With
End Sub
ET SIrespectant la mise en forme forme (renvoie a la ligne automatiquement et ajustement du texte)
la cellule B2 de la feuille1 vers la cellule B2 (fusionnée) de la feuille2,
Sub TestCopie()
Sheets("Feuil1").Range("B2").Copy
Sheets("Feuil2").Range("B2").PasteSpecial Paste:=xlPasteColumnWidths
Sheets("Feuil2").Range("B2").PasteSpecial Paste:=xlPasteAll
End Sub
Sub Copy_Cell()
Dim Source As Range
Dim I As Single
Set Source = Worksheets("Feuil1").[B2]
Source.Copy
Worksheets("Feuil2").Select
With Range(Source.Address).MergeArea
.Select
.PasteSpecial Paste:=xlPasteAll
.PasteSpecial Paste:=xlPasteFormats
.Merge
.RowHeight = Source.RowHeight
I = 0.5: Do
.ColumnWidth = (Source.ColumnWidth / .Count) * I
I = I + 0.01
Loop Until .Width >= Source.Width
End With
End Sub