Sub Macro1()
[COLOR="Red"]Dim Sortie As Boolean[/COLOR]
Range("A4").Select
Selection.Copy
Range("A3").Select
ActiveSheet.Paste
Range("A4").Select
Application.CutCopyMode = False
Selection.ClearContents
[COLOR="Red"]Sortie = False
Do While Sortie = False[/COLOR]
Range("A4").Value = InputBox("Entrer l'index kilométrique", "KM DU MOIS")
If Range("A4") < Range("A3") Then
MsgBox "KM INFERIEUR" & Chr(10) & "CONTROLER L'INDEX"
[COLOR="Red"]Else
Sortie = True[/COLOR]
End If
[COLOR="Red"]Loop[/COLOR]
End Sub