Division d'une ligne en plusieurs lignes selon une cellule

Bonjour à tous,

S'il vous plait, pouvez-vous m'aider à trouver le code dont j'ai besoin et sur lequel je travail depuis un petit moment.

En effet, je cherche à diviser chaque ligne en plusieurs lignes, selon le contenu d'une cellule.

Comme vous pouvez le voir sur la capture d'écran jointe, je souhaite passer du tableau 1 au tableau 2 en divisant chaque ligne (je n'ai pas que 2 lignes, mais plusieurs centaines) en plusieurs lignes selon une cellule dans laquelle il y a plusieurs tâches à effectuer (il n'y a pas forcément 3 tâches comme sur l'image jointe).

Enfin, dans l'idéal, j'aimerai créer ce nouveau tableau dans un autre onglet.

En vous remerciant ÉNORMÉMENT par avance

Très bien.

Vous trouverez en pièce-jointe un exemple concret du tableau que je souhaite créer dans un nouvel onglet.

MERCI

A tester.

Cordialement.

C'est parfait!

Merci beaucoup

Bonjour

Avec détection des tâches à partir des numéros :

Sub Reclasser()
    Dim T, n%, f%, i%, j%, k%, pnom$, tache$, nt$, tf As Worksheet
    Set tf = Worksheets("Tableau Final")
    f = tf.Cells(Rows.Count, 1).End(xlUp).Row
    With Worksheets("Tableau Initial")
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 2 To n
            pnom = .Cells(i, 1).Value
            tache = .Cells(i, 2).Value
            j = 1
            Do
                j = j + 1: nt = j & "."
                If InStr(tache, nt) > 0 Then
                    tache = Replace(tache, nt, "@" & nt)
                Else
                    Exit Do
                End If
            Loop
            tache = Replace(tache, Chr(10), "")
            T = Split(tache, "@")
            For j = 0 To UBound(T)
                f = f + 1
                tf.Cells(f, 1) = pnom
                tf.Cells(f, 2) = Val(T(j))
                tf.Cells(f, 3) = Trim(Right(T(j), Len(T(j)) - 3))
            Next j
        Next i
    End With
End Sub

Voir si cela correspond. Cordialement.

Ça fonctionne !

Merci MFerrand ))