merci beaucoup maintenant ça marche, j'ai fait des modifications et ça marche .
Private Sub Workbook_Open()
'
Dim tTab, sItem$
'
sItem = ThisWorkbook.Name
sItem = Left(sItem, InStrRev(sItem, ".") - 1)
tTab = Split(sItem, " ")
sItem = ""
If UBound(tTab) > 1 Then
Range("B2").Value = DateSerial(CInt(tTab(UBound(tTab))), CInt(tTab(UBound(tTab) - 1)), 1)
For x = 0 To UBound(tTab) - 2
sItem = sItem & IIf(sItem = "", tTab(x), " " & tTab(x))
iRow = Range("A" & Rows.Count).End(xlUp).Row
Next
If iRow > 1 Then
For x = 2 To iRow
Range("B" & x).Value = Format(Range("B2").Value, "mm/yyyy")
Range("C" & x).Value = Range("A" & x).Value & "-" & Format(Range("B2").Value, "mm/yyyy")
Next
End If
End If
merci beaucoup