Historique semaine

Bonjour dans un fichier excel j'ai réaliser un historique, qui quand on appuis sur un bouton enregistre dans un feuille annexe les valeurs souhaiter :

Option Explicit
Sub historique1()

Dim li As Integer
li = 1
If Sheets("jour").Range("A1") <> "" And Sheets("jour").Range("G1") <> "" Then
Sheets("historique1").Activate
li = Cells(Rows.Count, 1).End(xlUp).Row + 1

Range("A" & li) = Sheets("jour").Range("A2")
Range("B" & li) = Sheets("jour").Range("B2")
Range("C" & li) = Sheets("jour").Range("C2")
Range("D" & li) = Sheets("jour").Range("G1")

Else
MsgBox "Toutes les cellules ne sont pas remplies"
End If
End Sub

J'aurais aimer savoir comment faire pour que tous les 7 jours dans la page historique la macro saute une ligne pour bien différencier, semaine par semaine ou même écrit "semaine XX".

Merci d'avance pour votre aide.

Cordialement

ps : je vous fourni aussi le ficher excel

Bonjour,

Je vous suggère de conserver un format classique de base de données, et donc de ne pas sauter de ligne. Il faudrait plutôt ajouter une colonne supplémentaire avec la date (qui permet entre autre de déduire le numéro de semaine). Je souligne le fait que mettre la date est plus pertinent que le numéro de semaine (qui peut le plus peut le moins, on peut déduire la semaine de la date, pas l'inverse...).

Un exemple :

Option Explicit
Sub historique1()

Dim li As Long

If Sheets("jour").Range("A1") <> "" And Sheets("jour").Range("G1") <> "" Then
    With Sheets("historique1")
        li = Cells(Rows.Count, 1).End(xlUp).Row + 1
        .Range("A" & li) = Sheets("jour").Range("A2")
        .Range("B" & li) = Sheets("jour").Range("B2")
        .Range("C" & li) = Sheets("jour").Range("C2")
        .Range("D" & li) = Sheets("jour").Range("G1")
        .Range("E" & li) = Date
    End With
Else
    MsgBox "Toutes les cellules ne sont pas remplies"
End If

End Sub

J'aurai bien aimé et je trouve ça plus simple aussi, surtout si on utilise Ctrl + F, mais le fichier ne va pas être utilisé que par moi, mais aussi des personne moins sensible à l'outil Excel. C'est suite à une demande de leur part que j'ai créé cette requête, mais si cela n'est pas possible tant pis, je leur apprendrais à utiliser Ctrl + F pour chercher une date précise.

Option Explicit
Sub historique1()

Dim li As Long

If Sheets("jour").Range("A1") <> "" And Sheets("jour").Range("G1") <> "" Then
    With Sheets("historique1")
        li = Cells(Rows.Count, 1).End(xlUp).Row + 1
        .Range("A" & li) = Sheets("jour").Range("A2")
        .Range("B" & li) = Sheets("jour").Range("B2")
        .Range("C" & li) = Sheets("jour").Range("C2")
        .Range("D" & li) = Sheets("jour").Range("G1")
        .Range("E" & li) = Date
        .Range("F" & li) = Weekday(Date, 2)
    End With
Else
    MsgBox "Toutes les cellules ne sont pas remplies"
End If

End Sub

Vous pouvez ajouter une colonne supplémentaire avec le numéro de semaine (en formule, ou via VBA) :