Ventiller feuil en plusieurs en fonct de donnees d'1 col

Bonjour!

J'illustre mon besoin sur le classeur joint en feuille 2 (Production) j'ai les consommations des différentes structures, je voudrais si possible ventiller les données de la feuille source sur des feuilles en fonction des données de la colonne H feuille 2. Avec une rupture par mois en en fin un total global. Merci à tous

Bonjour!

Sub ventiller()
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        Dim w(0 To 12) As Worksheet, i&, n&(0 To 12), m%
            If Target.Row = 1 And Target.Column = 8 Then
                For i = 0 To 12
                    Set w(i) = Worksheets(i + 1)
                    If i > 0 Then
                        w(i).Range(w(i).Cells(4, 1), w(i).Cells(Rows.Count, 9)).ClearContents
                        n(i) = 4
                    Else
                        n(i) = WorksheetFunction.Max(4, w(i).Cells(Rows.Count, 1).End(xlUp).Row + 1)
                    End If
                Next i
                For i = 4 To n(0)
                    m = w(0).Cells(i, 8)
                    w(0).Rows(i).Copy Destination:=w(m).Cells(n(m), 1)
                    n(m) = n(m) + 1
                Next i
            End If

End Sub

J'ai plavé ce code dans un module pour l'adapter mais je trouve quelques problèmes à le faire, merci de le corriger, à bientôt

Bonsoir!

Est ce que ma question n'est pas claire ou c'est mon problème qui est délicat? merci de me répondre...

Bonjour

A tester

Bonjour Banzai64!

Je te remercie pour ta contribution à solutionner mon problème, je viens de vérifier cela donne l'air de bien fonctionner, je reviendrai au besoin. Merci encore.