If c.Style = 'Titre3' Then
Range(Cells(c.Row, SelectionDepart.Column + 1), Cells(c.Row, SelectionDepart.Column + SelectionDepart.Columns.Count - 1)).Select
Selection.HorizontalAlignment = xlCenterAcrossSelection
Selection.WrapText = True
HauteurLigne = Cells(c.Row, c.Column).RowHeight
Selection.MergeCells = True
Selection.HorizontalAlignment = xlLeft
'Ne marche pas bien
'Cells(c.Row, c.Column).Rows.AutoFit
' donc en attendant...
Cells(c.Row, c.Column).RowHeight = HauteurLigne
End If