Copier coller formule

bonjour

dans le fichier ci-joint, je devrais faire un copier coller selon plusieurs critères:

a chaque date de début de mois, je colle les 3 premières cellules en me décalant a droite.

En ouvrant le fichier c'est plus clair:

par exemple, le 06.01.1992 en S2, j'ai ma première serie de 3 cellules

Ensuite le 03.02.1992(nouveau mois), je me decale à droite et copie les 3 cellules

Ensuite le 02.03.1992 (nouveau mois), je me decale à droite et copie les 3 cellules

Merci si quelqu'un peut m'aider

Bonsoir,

A défaut d'autres éléments, pour une opération ponctuelle, essaie ceci :

Sub Reprise()
    Dim n&, i&, k%
    n = Range("A" & Rows.Count).End(xlUp).Row
    k = 19
    For i = 3 To n
        If Month(Cells(i, 1).Value) <> Month(Cells(i - 1, 1).Value) Then
            k = k + 1
            Range("S2:S4").Copy Cells(i, k)
        End If
    Next i
End Sub

Cordialement

Ferrand