Trouver les nombres manquants dans un tableau et ajouter une ligne

Bonjour,

J'ai un problème je dois faire une macro Excel qui détecte qu'il manque une valeur et qui doit ajouter une ligne des qu'il trouve l'erreur.

Exemple:

Il manque bien le numéro 2 le but de la macro est ajouter une ligne entre le 1 et le 3 comme ceci

La ligne entre le 1 et le 3 doit être vierge (le document ne contient pas que des chiffres mais il doit fonctionner que pour les nombres)

Je vous joint mon document je vous remercie d'avance pour l'intérêt que vous porterez à mon problème.

bonjour,

une proposition via une macro

With Feuil1
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        dn = Val(.Cells(dl, 1))
        For i = dl - 1 To 39 Step -1
            dn1 = Val(.Cells(i, 1))
            If dn - dn1 > 1 Then
                Rows(i + 1 & ":" & i + dn - dn1 - 1).Insert
               ' .Cells(i + 1, 1).Resize(dn - dn1 - 1) = Application.WorksheetFunction.Sequence(dn - dn1 - 1, 1, dn1 + 1, 1) 'version office 365
                .Cells(i + 1, 1).Resize(dn - dn1 - 1) = Evaluate("=row(A" & dn1 + 1 & ":A" & dn - 1 & ")") 'version antérieure à office 365
            End If
            dn = dn1
        Next i
    End With
End Sub

@H2SO4, sequence in 2019 ??? c'est trop tôt, je pense !

Sub H2SO4()
     n1 = 5
     n2 = 12
     Arr = Evaluate("=transpose(column(offset(a1,," & n1 - 1 & ",," & n2 - n1 + 1 & ")))")
End Sub

@BsAlv,

jij hebt gelijk. het is aangepast.

@forum

voir correction dans code initialement proposé.