The issue has been solved.
Please find below the code to start from Week number, transform it date (dd/mm/yyyy) and finally transform it again to the format dd.mmm.yyyy

Dim filtrodata1 As Date
  Dim filtrodata2  As String
  Dim iWeek, iYear As Integer
  iWeek = xDWs.Cells(2, 4).Value
  iYear = 2019
  filtrodata = DateSerial(iYear, 1, ((iWeek - 1) * 7) + 2 - Weekday(DateSerial(iYear, 1, 1)) + 1)
  filtrodata2 = Format(filtrodata, "dd.mmm.yyyy")
Hoping to be usefull for someone.

thanks
Rossofoco