Problème sur INSERT / UPDATE

Bonjour,

Je viens vers vous car j'ai un soucis, je vais déjà vous mettre le code pour que vous puissiez comprendre:

Private Sub EntréeStocks_Click()

Dim rstS As DAO.Recordset
Dim strSql As String
 
Set rstS = Me.RecordsetClone 'source
 
'Vérifier si le jeu d'enregistrements ne contient pas de lignes
If rstS.RecordCount = 0 Then Exit Sub
rstS.MoveLast 'Inutile dans ce cas, mais gardons les bonnes habitudes
rstS.MoveFirst
Do Until rstS.EOF

If DCount("*", "StocksEm", "Ref = '" & rstS.Fields("Ref") & "'" _
        & " AND Emplacement = '" & rstS.Fields("Emplacement") & "'" _
        & " AND CodeVariante= '" & rstS.Fields("CodeVariante") & "'") > 0 Then
        strSql = "UPDATE StocksEm" _
        & " SET Qte = Qte + " & rstS.Fields("Qte") & "" _
        & " WHERE Ref = '" & rstS.Fields("Ref") & "'" _
        & " AND Emplacement = '" & rstS.Fields("Emplacement") & "'" _
        & " AND CodeVariante = '" & rstS.Fields("CodeVariante") & "'"
        CurrentDb.Execute strSql, dbFailOnError
 
        strSql = "INSERT INTO HistEntre (Ref,Qte,NumBl,DateS,Emplacement,CodeVariante)" _
        & " SELECT NewStocks.Ref, NewStocks.Qte, NewStocks.NumBl, NewStocks.DateS, NewStocks.Emplacement, NewStocks.CodeVariante " _
        & " FROM NewStocks"
        CurrentDb.Execute strSql, dbFailOnError
    
    ElseIf DCount("*", "StocksEm", "Ref = '" & rstS.Fields("Ref") & "'" _
        & " AND Emplacement = '" & rstS.Fields("Emplacement") & "'" _
        & " AND  IsNull(CodeVariante) ") > 0 Then
        strSql = "UPDATE StocksEm" _
        & " SET Qte = Qte + " & rstS.Fields("Qte") & "" _
        & " WHERE Ref = '" & rstS.Fields("Ref") & "'" _
        & " AND Emplacement = '" & rstS.Fields("Emplacement") & "'" _
        & " AND  IsNull(CodeVariante)"
        
        CurrentDb.Execute strSql, dbFailOnError
 
        strSql = "INSERT INTO HistEntre (Ref,Qte,NumBl,DateS,Emplacement,CodeVariante)" _
        & " SELECT NewStocks.Ref, NewStocks.Qte, NewStocks.NumBl, NewStocks.DateS, NewStocks.Emplacement, NewStocks.CodeVariante " _
        & " FROM NewStocks"
        CurrentDb.Execute strSql, dbFailOnError
        
     Else
        strSql = "INSERT INTO StocksEm (Ref,Qte,NumBl,DateS,Emplacement,Provenance,CodeVariante)" _
        & " SELECT NewStocks.Ref, NewStocks.Qte, NewStocks.NumBl, NewStocks.DateS, NewStocks.Emplacement, NewStocks.Provenance, NewStocks.CodeVariante " _
        & " FROM NewStocks" _
        '& " WHERE id_art_fk = " & rstS.Fields("id_art_fk")
        CurrentDb.Execute strSql, dbFailOnError
 
        strSql = "INSERT INTO HistEntre (Ref,Qte,NumBl,DateS,Emplacement,CodeVariante)" _
        & " SELECT NewStocks.Ref, NewStocks.Qte, NewStocks.NumBl, NewStocks.DateS, NewStocks.Emplacement, NewStocks.CodeVariante " _
        & " FROM NewStocks"
        CurrentDb.Execute strSql, dbFailOnError
    
        
    End If
rstS.MoveNext
Loop
 
    strSql = "DELETE * FROM NewStocks"
    CurrentDb.Execute strSql, dbFailOnError
 
Me.Requery
 
rstS.Close
Set rstS = Nothing
Me.Refresh


End Sub

Le problème  que j'ai actuellement c'est que lorsque je veux Insérer un enregistrement avec CodeVariante rempli dans un Emplacement qui existe déjà il ne veut pas et à la place il fait un UPDATE sur ce même enregistrement situé à l'emplacement.

Exemple 

Et je souhaite insérer celui-ci : 

Cela met à jour l'enregistrement qui existe déjà à cet Emplacement, hors moi j'aimerai qu'il sois insérer comme CodeVariante n'est pas Null au moment ou je souhaite l'INSERT . Le deuxième formulaire que vous voyez est basé sur la table NewStocks et le premier sur StocksEm.

Avez-vous une idée ? Merci par avance 

Cdlt
Windows / Chrome 108.0.0.0