Aide pour une macro somme

Bonjour,

Je sollicite votre aide car ca fais plusieurs heures que je cherche a faire comme une "boucle" (je ne sais pas si les termes sont exact) a une macro,

En gros j'aimerais que quand la date sur la colonne F est différente, la somme qui est faite sur 4 cellules (C2 à C5) se répète en (C6 à C10)

Je joins le fichier en dessous, le nom de la macro est "SommeMois" dans le module 1

Merci d'avance

Hello,

J'ai corrigé ton erreur de code mais je n'ai pas regarder si le resultat etait bon.

R@g

Bonjour, Rag02700

Merci de ta réponse, mais la somme ne se déplace toujours pas en fonction de la date,*

J'ai rajouté des nom a mes "Dim UneLigne1" et 2 pour les différencier et je pensais a mettre un ActiveCell.Offset (4, 0) pour décaler la somme de 4 en bas mais je ne sais pas trop ou le mettre.

J'ai testé plusieurs chose mais aucune se concrétise.

Déclarer des plages en Range

   With Sheets("Enregistrement valeurs")
        Set UnePlage1 = Sheets("Enregistrement valeurs").Range("C2:C5")
        NbOuvSv = 0
         For Each UnePlage1 In Selection.Cells
            If IsNumeric(UnePlage1.Value) = True Then NbOuvSv = NbOuvSv + UnePlage1.Value
        Next UnePlage1

Quelque chose comme ca avec un Offset qui décalerai mais je n'y arrive pas pour l'instant

Mais aussi:

Set UnePlage1 = Range("C2:C5")
        NbOuvSv = Application.WorksheetFunction.Sum(UnePlage1)
        If NbOuvSv = Datemois Then NbOuvSv = NbOuvSv.Offset(4, 0)

La derniere est un test sans succès de ma part

Si vous pouvez m'aider a mon problème svp.