Alors j'y ai pensé mais j'aurais préféré traiter les infos mois par mois. J'avais vu un code de ce type pour une feuille commune
Sub test()
Dim ListObj As ListObject, Sh As Worksheet, sh2 As Worksheet, j As Long
Set Sh = Sheets("Mois")
Set sh2 = Sheets("Feuil1")
Set ListObj = Sh.ListObjects("Tableau")
j = Sh.Cells(Rows.Count, 2).End(xlUp).Row
With ListObj
Sh.Cells(j, 2) = sh2.Range("E7")
Sh.Cells(j, 3) = sh2.Range("E9")
Sh.Cells(j, 4) = sh2.Range("E11")
Sh.Cells(j, 5) = sh2.Range("E13")
Sh.Cells(j, 6) = sh2.Range("E15")
End With
ListObj.ListRows.Add
MsgBox "Données enregistrées"
With sh2
.Range("E7:E15") = ""
End With
End Sub
Mais lors d'une fragmentation en plusieurs mois la je n'arrive pas à imaginer comment je peux enregistrer en fonction de la case E11 qui represente le mois correspondant et donc enregistrer l'infomation à cet endroit.
La avec ce code j'enregistre simplement à la ligne en dessous sans prendre en compte la variable du mois et même de la semaine