Insérer lignes pour chaque date manquante pour plage de cellule selectionné

Bonjour la communauté ,

J'espère que tout le monde se porte bien!

ma question est dans le titre .

Voici le code que j'utilise mais j'aimerai l'adapter pour qu'il fonctionne que sur les cellules actives que j'ai sélectionné.

Sub date_creation()
Dim i As Integer
Dim fin As Integer

For i = 1 To 5000
If Cells(i, 1) = "" Then fin = i: Exit For
Next i

For i = 1 To fin
If Cells(i + 1, 1) <> Cells(i, 1).Value + 1 Then
Rows(i + 1).Insert
Cells(i + 1, 1) = Cells(i, 1) + 1
End If
Next i
End Sub 

Merci d'avance pour votre aide

K.

Bonsoir Kama

Normalement quelque chose comme ceci

Sub Date_Creation()
  Dim Cel As Range
  ' Pour chaque cellule de la selecton
  For Each Cel In Selection
    If Cel.Offset(Cel.Row + 1, 1) <> Cel.Offset(Cel.Row, 1).Value + 1 Then
      Cel.Offset(Cel.Row + 1).EntireRow.Insert
      Cel.Offset(Cel.Row + 1, 1) = Cel.Offset(Cel.Row, 1) + 1
    End If
  Next Cel
End Sub

A+

Bonjour BrunoM45,

Merci de ta réponse rapide , ton code insère des lignes vides sur toute ma colonne un peu partout.

Ce que j'aimerai c'est insérer un ligne avec les dates manquantes des cellules que je sélectionne. Ci joint un exemple

Merci pour ton aide.

Bonjour

Bonjour à tous

Un essai à tester. Te convient-il ?

Bye !

Bonjour ,

il me convient parfaitement , merci .