Bonjour,
Effectivement y avait des erreurs car comme tu as déplacé les noms dans la feuille Janvier 2018 et bah la condition n'était pas vérifiée.
J'ai corrigé cela puis on peut mettre 2 taches dans une cellule, entre les 2 il y aura le signe "+"
Il faut remplacer le code.
Sub test()
Set ws1 = Worksheets(1)
Set ws2 = Worksheets(2)
lig = 2
col = 3
While ws1.Cells(lig, "C") <> ""
pers = ws1.Cells(lig, "I")
While pers <> ws2.Cells(3, col)
col = col + 1
If col > 24 Then col = 3
Wend
date_debut = ws1.Cells(lig, "D")
ligne = 4
While date_debut <> Cells(ligne, "B")
ligne = ligne + 1
If ligne > 31 Then ligne = 4
Wend
subj = ws1.Cells(lig, "C")
If ws2.Cells(ligne, col) = "" Then
ws2.Cells(ligne, col) = subj
Else
ws2.Cells(ligne, col) = ws2.Cells(ligne, col) & " + " & subj
End If
lig = lig + 1
Wend
End Sub