Extraire les données d'une cellule

Bonsoir à Tous!

Et merci pour les informations précieuses et toutes les personnes qui se donnent la peine d'aider.

Par avance désolé, je suis extrêmement novice et c'est parfois un peu à reculons qu'on expose un problème qui n'est qu'une banalité pour d'autres..

Tout est dans le titre et je donne des explications dans le fichier joint. Merci pour tout!

J'ai fais des recherches sur des sujets similaires. Mais je n'ai rien trouvé de tout a fait semblable..

Bonsoir,

Sub Dooz()
    Dim wsO2 As Worksheet, s%, n%, k%, kk%, ss%, Lst
    Set wsO2 = Worksheets("Onglet 2")
    With Worksheets("Onglet 1")
        For s = 1 To 52
            n = .Cells(s + 3, .Columns.Count).End(xlToLeft).Column
            If n > 4 Then
                For k = 5 To n
                    If .Cells(s + 3, k) <> "" Then
                        Lst = Split(Replace(.Cells(s + 3, k), Chr(34), ""), ",")
                        ss = s * 3 + 1: kk = (k - 5) * 11 + 7
                        wsO2.Cells(kk, ss).Resize(UBound(Lst) + 1) = _
                         WorksheetFunction.Transpose(Lst)
                    End If
                Next k
            End If
        Next s
    End With
End Sub

Appuyer sur le bouton pour tester (après activation des macros).

Cordialement.

Merci infiniment! je regarderais ça ce soir

Je ne voudrais pas abuser mais tu pense que tu peux faire qqch sur la macro pour que par exemple lorsque je supprime une ligne de données sur l'onglet n°1, elles puissent s'effacer également sur l'onglet n°2? Actuellement les infos restent figées lorsque tu supprime par exemple la sem 1 et que tu réinitialise la macro. Sinon c'est parfait!!! Merci beaucoup MFERRAND!

Il suffit d'effacer avant...

    Set wsO2 = Worksheets("Onglet 2")
    wsO2.Range("D7:FA555").ClearContents
    With Worksheets("Onglet 1")

Je me demandais si tu avais besoin des infos repère que tu avais mises...

Cordialement.

Super! merci encore pour le service rendu et la rapidité! Passe une bonne soirée!

Merci à toi...

Je précise un peu (j'avais pas mal de courrier en attente tout à l'heure) : je m'étais demandé si tu souhaitais répercuter la mention de la cellule de l'Onglet 1 (E4 F4 G4... BB4 E5 etc.) comme repère dans l'Onglet 2...

En effet mais je vais me débrouiller je pense, ne t'embête pas.

On doit pouvoir les mettre en même temps...