Insérer deux lignes après chaque même date

[Meedoo]

Sur un tableur Excel 2016, j’ai une seule colonne avec des dates: exemple du 01/09/1970 au 31/08/2020 (50 ans). Je voudrais insérer deux lignes vides après chaque date du 31/08, c’est à dire séparer ou fractionner ma série par année (du 01 septembre au 31 aout) séparées à chaque fois par deux lignes.

Merci beaucoup.

[af291]

Bonjour ,
avec un fichier ,nous pourrions plus facilement proposer une solution .

Franck .

[Cow18]

Sub ExtraLignes()
     Dim i, iDer
     With ActiveSheet.Columns("A")           'quelle colonne ?
          iDer = .Cells(Rows.Count, 1).End(xlUp).Row     ' dernière ligne
          For i = iDer - 1 To 1 Step -1
               If WorksheetFunction.Count(.Cells(i, 1).Resize(2)) = 2 Then     '2 numbers
                    If Year(WorksheetFunction.EDate(.Cells(i, 1).Value2, 4)) <> Year(WorksheetFunction.EDate(.Cells(i + 1, 1).Value2, 4)) Then     'même année (à partir de septembre)
                         .Cells(i + 1, 1).Resize(2).EntireRow.Insert     'insérer 2 lignes
                    End If
               End If
          Next
     End With
End Sub