Sub Insere_tiret_droite_date()
Dim TM(1 To 8) As String
Dim Plage As Range
Dim C As Range
TM(1) = "2012"
TM(2) = "lundi"
TM(3) = "mardi"
TM(4) = "mercredi"
TM(5) = "jeudi"
TM(6) = "vendredi"
TM(7) = "samedi"
TM(8) = "dimanche"
Set Plage = Range("B8:B50")
For Each C In Plage
For I = 1 To 8
C.Value = Replace(C.Value, TM(I), TM(I) & "-")
Next I
Next C
End Sub