Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 10/03/2009 par VBACrumble
'
With Range("A3")
.FormulaR1C1 = "=""Nombre d'heures total ""&Feuil1!RC& "": ""&Feuil1!R[6]C[1]&"" H"""
.Value = .Value
.Characters(Start:=29, Length:=6).Font.ColorIndex = 3
End With
End Sub