Re,
Méthode simple ( ) : on remplit tout d'un seul coup.
Sub TachesHebdomadaires()
Dim THeb(41), i%
With Worksheets("matrice").Range("B1:C14")
For i = 1 To 14
THeb((i - 1) * 3) = .Rows(i).Value
THeb((i - 1) * 3 + 1) = Array(Empty, Empty)
THeb((i - 1) * 3 + 2) = Array(Empty, Empty)
Next i
End With
Application.ScreenUpdating = False
With Worksheets("REPARTITION DES TACHES").Range("C2:D43")
For i = 0 To 52
.Offset(i * 44).Value = WorksheetFunction.Transpose( _
WorksheetFunction.Transpose(THeb))
Next i
End With
End Sub
Mais cela suppose qu'au moment où on le fait, il n'y a rien sur les lignes intermédiaires blanches des colonnes C et D, car on procède ici par affectation d'une plage couvrant la semaine, avec boucle pour le répéter sur les 53 semaines... ???
NB- Rectifie ta formule NO.SEMAINE : remplacer le paramètre 2 par 21 pour qu'elle donne le numéro selon la norme ISO européenne (ou utiliser sous 2016 la fonction NO.SEMAINE.ISO).
Tu verra que ta semaine 53 deviendra semaine 1...
Cordialement.