[B2] = WorksheetFunction.WeekNum(Date, 1)
Range("B2").Value = Application.WorksheetFunction.WeekNum(Now)
peut on faire une roulette style iphone de 0 a 52 ou 3 dans un userform
comme on peut afficher le numeros de semaines en vba dans B2 en un cick sur un bp