Sub test()
Dim code As Range, W1 As Range, W2 As Range, W3 As Range
Dim nbsemaine As String
nbsemaine = Application.InputBox("Entrez le nombre de semaines : W1,W2,W3...")
Set code = Range("A2", Range("A2").End(xlDown))
Set W1 = Range("C2", Range("C2").End(xlDown))
Sheets("RESULT").Range("B2").Formula = "=SOMMEPRODUCT(code=A2)*nbsemaine)"
End Sub
Est ce que cela pourrait être possible comme une façon de faire sachant que ça demanderait de déclarer les 26 semaines en range. Il y a surement mieux à faire...