j'ai ajouté ce code mais ça ne fonctionne pas.
For i = 18 To 66
If NomCB = .Cells(i, 2).Value & MoisCB.Value = "JANVIER" Then Semaine1 = Sheets("Janvier").Cells(i - 13, 7)
If NomCB = .Cells(i, 2).Value & MoisCB.Value = "JANVIER" Then Semaine2 = Sheets("Janvier").Cells(i - 13, 8)
If NomCB = .Cells(i, 2).Value & MoisCB.Value = "JANVIER" Then Semaine3 = Sheets("Janvier").Cells(i - 13, 9)
If NomCB = .Cells(i, 2).Value & MoisCB.Value = "JANVIER" Then Semaine4 = Sheets("Janvier").Cells(i - 13, 10)