Dim Bdd As Database
Dim Rec As Recordset
Dim NbEnreg As Long
Dim confirmation As VbMsgBoxResult
 
Sub InitialiserFormulaire()
    Set Bdd = CurrentDb
    Set Rec = Form_AsTEST.RecordsetClone
    CompterEnregistrements
    MajPbNavigation
End Sub
Sub CompterEnregistrements()
    If Rec.BOF And Rec.EOF Then
        'Le Recordset est vide
        NbEnreg = 0
    Else
        Rec.MoveLast
        Rec.MoveFirst
        NbEnreg = Rec.RecordCount
    End If
End Sub
Sub SeDeplacer(VersOu As String)
    With Form_AsTEST
        Rec.Bookmark = .Bookmark
        Select Case VersOu
            Case "Premier"
                Rec.MoveFirst
            Case "Suivant"
                Rec.MoveNext
            Case "Precedent"
                Rec.MovePrevious
            Case "Dernier"
                Rec.MoveLast
            End Select
            .Bookmark = Rec.Bookmark
        End With
    MajPbNavigation
End Sub
Sub FermerFormulaire()
    Rec.Close
    Bdd.Close
    DoCmd.Close
End Sub
Sub MajPbNavigation()
    With Form_AsTEST
        .pbPremier.Enabled = .CurrentRecord <> 1
        .pbPrecedent.Enabled = .CurrentRecord <> 1
        .pbSuivant.Enabled = .CurrentRecord <> NbEnreg
        .pbDernier.Enabled = .CurrentRecord <> NbEnreg
    End With
End Sub
Mon problème:
Sub NouvEnreg()
      Rec.AddNew
      Rec.Update
      Rec.MoveLast
End Sub
Sub SuppEnreg()
confirmation = MsgBox("Etes-vous sûre de vouloir supprimer cet enregistrement?", 1, "Confirmation" )
    Select Case confirmation
        Case 1
        Rec.Delete
        Rec.Update
        Rec.MoveLast
        Case 2
    End Select
    MajPbNavigation
End Sub