Saisie automatique

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [A2:B65536], Me.UsedRange)
If Target Is Nothing Then Exit Sub
Dim lig As Variant
Application.EnableEvents = False
With Sheets("BDD") 'à adapter
  For Each Target In Target 'en cas d'entrées multiples
    If Target.Column = 1 Then
      Target.Offset(, 1) = ""
      lig = Application.Match(Target, .[A:A], 0)
      If IsNumeric(lig) Then _
        Target.Offset(, 1) = .Cells(lig, 2)
    Else
      Target.Offset(, -1) = ""
      lig = Application.Match(Target, .[B:B], 0)
      If IsNumeric(lig) Then _
        Target.Offset(, -1) = .Cells(lig, 1)
    End If
  Next
End With
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [A:B], Me.UsedRange)
If Target Is Nothing Then Exit Sub
Dim lig As Variant
Application.EnableEvents = False
For Each Target In Target 'en cas d'entrées multiples
  lig = Application.Match(Target, [BDD].Columns(Target.Column), 0)
  If IsNumeric(lig) Then _
  Cells(Target.Row, 1).Resize(, 2) = [BDD].Cells(lig, 1).Resize(, 2).Value
Next
Application.EnableEvents = True
End Sub

'toutes les variables doivent être déclarées
Option Explicit

'cette macro se déclenche quand le contenu d'une cellule de la feuille est modifié
Private Sub Worksheet_Change(ByVal Target As Range)
'redéfinit Target avec l'intersection de 3 plages
Set Target = Intersect(Target, [A:B], Me.UsedRange)
'si Target n'existe pas, fin de la macro
If Target Is Nothing Then Exit Sub
'déclare la variable lig
Dim lig As Variant
'désactive l'action des événements
Application.EnableEvents = False
'boucle pour étudier chaque cellule de Target
For Each Target In Target 'en cas d'entrées multiples
  'Application.Match c'est la fonction EQUIV
  lig = Application.Match(Target, [BDD].Columns(Target.Column), 0)
  'si la ligne a été trouvée, lig est numérique, copie des 2 cellules de BDD
  If IsNumeric(lig) Then _
  Cells(Target.Row, 1).Resize(, 2) = [BDD].Cells(lig, 1).Resize(, 2).Value
Next
'réactive l'action des événements
Application.EnableEvents = True
End Sub