[Au moment où D7 et E7 sont remplis]
Dim typeVoie As String, nomVoie As String, Dim test As Boolean
typeVoie = cells(7,4).Value
nomVoie = cells(7,5).Value
test = False
Sheets("Type Voie utile").Select
For i = 2 to 30
If typeVoie = cells(i,2).value Then
typeVoie = cells(i,2).value
Exit For
End If
Next
Sheets("Voies utile").Select
lastRow = Range("B65536").End(xlup).row 'Derniere ligne remplie
For i = 2 to lastRow
If nomVoie = cells(i,1).value And typeVoie = cells(i,5).Value Then
test = True
Exit For
End If
Next
if test = False Then
MsgBox("L'adresse n'existe pas")
End If