Sub MeF()
Dim cel As Range, i&, n&
With Sheets("Fiche")
.Rows(13).Insert shift:=xlUp 'Insert la ligne
.Range(.Cells(13, "C"), .Cells(13, "G")).Merge 'Fusionne les cellules"
.Range("c13").WrapText = True 'Renvois à la ligne automatique
.Range("C:C").Columns.AutoFit 'Ajuste la colonne
End With
With Sheets("Fiche").Range("a12:g12")
'Met une bordure noire
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End Sub