re, je n'ai pas ouvert votre fichier, mais une variante sur Arturo83 :
if False then
If Application.Round(Range("G" & i), 9) >= Application.Round(Range("D4"), 9) Then
Range("F" & i) = "Occupée"
Else
Range("F" & i) = "Libre"
End If
endif
ou
goto Saute
If Application.Round(Range("G" & i), 9) >= Application.Round(Range("D4"), 9) Then
Range("F" & i) = "Occupée"
Else
Range("F" & i) = "Libre"
End If
Saute: