Salut Pricer,
je dois partir, mais j'avais commencer un truc pour toi.... Mais ce n'est pas fini...
Option Explicit
Sub InsertionDatemanquante()
Dim i As Integer
Dim ii As Long
Dim iii As Long
Dim Dif As Long
Dim Plage As Range
Dim Cell As Range
Application.EnableEvents = False
Set Plage = Sheets("Feuil1").Range("A3:" _
& Sheets("Feuil1").Range("A65536").End(xlUp).Address)
For i = 4 To Plage.Rows.Count
If Cells(i, 1).Value > Cells(i - 1, 1).Value + 1 Then
Dif = Cells(i, 1).Value - Cells(i - 1, 1).Value - 1
If Dif >= 3 Then Exit Sub
If Dif = 1 Then
Cells(i, 1).EntireRow.Insert
Cells(i, 1).Value = Cells(i - 1, 1).Value + 1 'Dif
ElseIf Dif = 2 Then
For ii = 1 To 3
iii = i
Cells(i, 1).EntireRow.Insert
Cells(i, 1).Value = Cells(iii - 1, 1).Value + Dif
ii = ii + 1
iii = i + 1
Next ii
End If
i = i + 1
End If
Next i
Application.EnableEvents = True
End Sub
Je plantais encore pour réécrire les dates quand il manquait deux jours consécutifs... mais c'est sur la bonne voie... si tu peux t'en inspirer...
Bon Week End à tout le forum
@+Thierry