Merci Zon,
je viens te tester ma macro avec ton code et ca marche. De plus, j'ai resolu mon second probleme qui etait de pouvoir inserer une ligne et remplir la date quand une date etait manquante. Maintenant, il faut que je teste la macro dans toutes les situations et que je complete avec le changement de jour.
Sub soluce()
Dim j As Integer
For j = Range("B65536").End(xlUp).Offset(-1, 0).Row _
To Range("B65536").End(xlUp).End(xlUp).Offset(2, 0).Row Step -1
If Not (Hour(Cells(j - 1, 2)) = Hour(Cells(j, 2)) + 1) Then
Cells(j, 1).EntireRow.insert
Range(Cells(j, 5), Cells(j, 20)).Interior.ColorIndex = 15
Range(Cells(j + 1, 2), Cells(j + 2, 2)).AutoFill Destination:=Range(Cells(j + 2, 2), Cells(j, 2)), Type:=xlFillDefault
End If
Next
End Sub
En tout cas, un grand merci. En 10 min, tu m'as evite une autre journee de prise de tete sur l'aide sommaire en anglais d'Excel VBA.
Thanks, take care, A+
Romain