Excel sior

Sub NumeroterColonneA()
    Dim LastRow As Long
    Dim i As Long
    Dim Count As Long
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Feuil1")

    ' Trouver la dernière ligne avec des données dans la colonne D
    LastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row

    Count = 1 ' Initialisation du compteur à 1

    For i = 3 To LastRow
        ' Si la cellule en colonne D n'est pas vide, alors...
        If Not IsEmpty(ws.Cells(i, 4)) Then
            ' Attribuer le numéro dans la colonne A
            ws.Cells(i, 1).Value = Count
            Count = Count + 1
        Else
            ' Si la cellule en colonne D est vide, laisser la cellule en colonne A vide
            ws.Cells(i, 1).Value = ""
        End If
    Next i

    ' Parcourir à nouveau pour s'assurer que les cellules vides en colonne A prennent la valeur de la dernière cellule non vide
    For i = 4 To LastRow
        If ws.Cells(i, 1).Value = "" And ws.Cells(i - 1, 1).Value <> "" Then
            ws.Cells(i, 1).Value = ws.Cells(i - 1, 1).Value + 1
        End If
    Next i
End Sub