Split cellule / copie données vers nouvel onglet

Bonjour tout le monde

J'ai récupéré via le forum la macro contenu dans le fichier en PJ. Elle permet de fractionner une cellule et dupliquer les lignes du fichier dans un nouvel onglet.

Je bute toutefois si la cellule à fractionner est vide. Dans ce cas, je voudrais quand même copier les données de la ligne dans le nouvel onglet

Auriez vous une astuce svp

Ex dans le fichier : lignes 2 et 3 à dupliquer selon fractionnement cellule L et copier dans nouvel onglet, ligne 4 à copier dans nouvel onglet, ligne 5 à dupliquer selon fractionnement cellule L et copier dans nouvel onglet

Merci pour votre aide

Bonjour,

Essayez ceci:

Sub Spt_Click()
    Dim tTab, tSplit, iRow, iIdx, tTabF(), fgG As Worksheet, fM As Worksheet
    Dim ln&, lgn&, j&
    Set fg = Sheets("Global Data")
    Set fM = Sheets("Modification")
    iRow = fg.Cells(Rows.Count, 1).End(xlUp).Row
    tTab = fg.Range("A1:AM" & iRow)
    Application.ScreenUpdating = False
    iIdx = 0
    lnD = 2
    For x = 2 To UBound(tTab, 1)
        tSplit = Split(tTab(x, 12), ",")
        If UBound(tSplit) >= 0 Then
            For y = 0 To UBound(tSplit)
                ReDim Preserve tTabF(1 To 1, 1 To iIdx + 1)
                tTabF(1, iIdx + 1) = tSplit(y)
                iIdx = iIdx + 1
            Next y
            lng = fM.Range("A" & Rows.Count).End(xlUp)(2).Row
            fM.Range("L2").Resize(iIdx, 1) = Application.Transpose(tTabF)
            fg.Range("A" & x & ":K" & x).Copy fM.Range("A" & lng & ":K" & lng + UBound(tSplit))
            fg.Range("M" & x & ":AM" & x).Copy fM.Range("M" & lng & ":AM" & lng + UBound(tSplit))
        Else
            lng = fM.Range("A" & Rows.Count).End(xlUp)(2).Row
            fg.Range("A" & x & ":AM" & x).Copy fM.Range("A" & lng)
        End If
     Next x
     Range("A1").Select
End Sub

Cdlt

Bonjour

Merci pour le coup de main

Je teste

cdlt

Bonsoir

test OK c'est parfait

merci beaucoup

cdlt

Bonsoir elroms

A+