Sub test()
'Macro Dan pour fadouny le 18/03/2010
'http://forum.excel-pratique.com/excel/macro-de-mise-en-forme-t16190.html
Dim dlg As Integer
dlg = ActiveSheet.UsedRange.Rows.Count
With Union(Range("A1:A" & dlg), Range("C1:C" & dlg), Range("E1:E" & dlg), Range("G1:G" & dlg), Range("I1:I" & dlg))
.Font.ColorIndex = 3
.Font.Bold = True
End With
End Sub