Bonjour,
Pour se simplifier un peu la vie, je propose d'insérer toi-même le n° de semaine dans une cellule (M3 dans la pièce jointe, mais tu peux modifier, évidemment). Faire en sorte, éventuellement que celui-ci figure dans une zone non-impimable.
L'avantage est qu'on ne devra pas se demander quel système utiliser pour calculer ce n° de semaine
La date de mise à jour peut s'ajouter automatiquement à l'ouverture du classeur:
Le code figure dans le module standard
Sub répartir()
Set src = Sheets("Check list")
If src.[M3] = "" Then MsgBox "renseigner le numéro de semaine en M3": Exit Sub
ligneSem = Application.Match("s" & Format(src.[M3], "00"), Sheets("M1").[A:A], 0)
If IsError(ligneSem) Then MsgBox "numéro de semaine non-trouvé": Exit Sub
Application.ScreenUpdating = False
For M = 1 To 7
src.Cells(6, M + 2).Resize(19, 1).Copy
Sheets("M" & M).Cells(ligneSem, 2).PasteSpecial Transpose:=True
Next M
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub