Code :
If Dir(Chemin2 & Format(Range("Date"), "yyyy") & ""Recap" & Format(Range("Date"), "yyyy") & ".xls", 0) = "" Then
If Dir(Chemin1 & Format(Range("Date"), "yyyy") & ""Recap" & Format(Range("Date"), "yyyy") & ".xls", 0) = "" Then
Workbooks.Add
Sheets.Add before:=Sheets(1)
Sheets(1).Name = Year(Now)
For i = 2 To Sheets.Count
Sheets(i).Visible = False
Next i
For i = 1 To 12
Sheets.Add after:=Sheets(i)
Sheets(i + 1).Name = Right("0" & i, 2)
Next i
ActiveWorkbook.SaveAs Chemin1 & Format(Range("Date"), "yyyy") & "Recap" & Format(Range("Date"), "yyyy") & ".xls"
ActiveWorkbook.SaveAs Chemin2 & Format(Range("Date"), "yyyy") & "Recap" & Format(Range("Date"), "yyyy") & ".xls"
Else
Workbooks.Open Filename:=Chemin1 & Format(Range("Date"), "yyyy") & "Recap" & Format(Range("Date"), "yyyy") & ".xls"
End If
Else
Workbooks.Open Filename:=Chemin2 & Format(Range("Date"), "yyyy") & "Recap" & Format(Range("Date"), "yyyy") & ".xls"
End If