Ajouter des lignes vides

Bonjour

Dans la colonne A j’ai des nombres classer par ordre croissant mais ces nombre sont pas incrémenter

C'est-à-dire 2000 2002 2003 2005 2007 2008 2009 .......

Je souhaite incrémenter cette colonne qui commence par 2000 en ajoutant des lignes vides

merci

voici mon exemple dans les pièces jointes

Bonjour,

Un exemple à reproduire sur ton classeur

Bonjour iliess, M12,

une façon de faire, en cliquant sur [A1]...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Target.Address = [A1].Address Then
    iRow = Range("A" & Rows.Count).End(xlUp).Row
    For x = iRow To 3 Step -1
        If Cells(x - 1, 1) < Cells(x, 1) - 1 Then
            Cells(x, 1).EntireRow.Insert shift:=xlDown
            Cells(x, 1) = Cells(x + 1, 1) - 1
            x = x + 1
        End If
    Next
End If
'
End Sub

Avec plaisir!

A+

merci mille fois

vous m'avez gagner beaucoup de temps