For i = 1 To Range("MotPasse").Count
If UCase(Me.motpasse) <> UCase(Range("motpasse")(i)) And _
UCase(Me.utilisateur) = UCase(Range("utilisateur")(i)) Then
MsgBox "mot de passe incorrect"
For i = 1 To Range("MotPasse").Count
If Me.motpasse <> Range("motpasse")(i) And _
UCase(Me.utilisateur) = UCase(Range("utilisateur")(i)) Then
MsgBox "mot de passe incorrect"