dim col as byte
dlt = .Range("B" & Rows.Count).End(xlUp).Row
For i = 12 To dlt
col = IIf(.Range("E4") = "Entrée", 6, 7)
If .Range("B" & i) = Ddate And .Range("C" & i) = .Range("C5") And .Range("D" & i) = .Range("C7") _
And .Range("E" & i) = Vehicule And .Cells(i, col) = .Range("E5") Then
MsgBox "Ces données existe déjà !!"
Exit Sub
End If
Next i