Function Présent() As Boolean
' Recherche une entrée préexistante dans la base
Présent = False
For Each gus1 In [nom1]
Présent = UCase(gus1) = UCase(TextBox2) And UCase(gus1.Offset(0, 1)) = UCase(TextBox3) And UCase(gus1.Offset(0, 2)) = UCase(TextBox4)
If Présent Then Exit For
Next
End Function