Recerchev en vba

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Fin = Range("A" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("A3:A" & Fin)) Is Nothing Then
    With Sheets("BD").Range("A:A")
        Set trouve = .Find(Target)
        If Not trouve Is Nothing Then
            Target.Offset(0, 1) = trouve.Offset(0, 1)  'annexe
            Target.Offset(0, 2) = trouve.Offset(0, 4)  'nom
            Target.Offset(0, 3) = trouve.Offset(0, 4)  'DateSortie
            Target.Offset(0, 4) = trouve.Offset(0, 4)  'DateRetour
            Target.Offset(0, 5) = trouve.Offset(0, 4)  'EtatDossier
            Target.Offset(0, 6) = trouve.Offset(0, 4)  'Personnel
            Target.Offset(0, 7) = trouve.Offset(0, 2)  'Empl
            Target.Offset(0, 8) = trouve.Offset(0, 4)  'Observation
        End If
    End With
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Fin = Range("A" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("A4:A" & Fin)) Is Nothing Then
    With Sheets("BD").Range("A:A")
        Set trouve = .Find(Target)
        If Not trouve Is Nothing Then
            Target.Offset(0, 1) = trouve.Offset(0, 4)  'annexe
            Target.Offset(0, 2) = trouve.Offset(0, 2)  'nom
            'Target.Offset(0, 4) = Target.Offset(-1, 4) + 1 'N° incrémentation
            'ou alors
            Target.Offset(0, 4) = WorksheetFunction.Max(Range("E2:E" & Target.Row - 1)) + 1
        End If
    End With
End If
Application.EnableEvents = True
End Sub

Sub RemplirTabEtat()
Dim TabEtat() As Variant
With Sheets("Etat")
    TabEtat = .Range("A4:X27").Value

    For i = LBound(TabEtat, 1) To UBound(TabEtat, 1)
        Somme = 0
        For j = 1 To 24 'pour toutes les colonnes du tableau
            Select Case j
                Case 2, 3, 4, 5 'formule pour "Phase Creation"
                    formule = "countifs(Tab_BD[Année],A" & i + 3 & ",Tab_BD[Annexe],ville" & (j - 1) Mod 6 & "_creation,Tab_BD[Phase],""Creation"",Tab_BD[Etat],""archivé"")"
                Case 8, 9, 10, 11 'formule pour "Phase Extension"
                    formule = "countifs(Tab_BD[Année],A" & i + 3 & ",Tab_BD[Annexe],ville" & (j - 1) Mod 6 & "_ext,Tab_BD[Phase],""extension"",Tab_BD[Etat],""archivé"")"
                Case 14, 15, 16, 17 'formule pour "Dossier Annule"
                    formule = "countifs(Tab_BD[Année],A" & i + 3 & ",Tab_BD[Annexe],ville" & (j - 1) Mod 6 & "_annule,Tab_BD[Phase],""annule"",Tab_BD[Etat],""archivé"")"
                Case 20, 21, 22, 23 'formule pour "Sieje"
                    formule = "countifs(Tab_BD[Année],A" & i + 3 & ",Tab_BD[Annexe],""ville" & (j - 1) Mod 6 & """)"
                Case 1, 7, 13, 19 'cas où j pointe sur une colonne "Année"
                    Somme = 0
                    GoTo suivant
                Case Else 'cas où j pointe une colonne "somme"
                    TabEtat(i, j) = Somme
                    GoTo suivant
            End Select
            
            TabEtat(i, j) = Application.Evaluate(formule)
            Somme = Somme + TabEtat(i, j)
suivant:
        Next j
        
    Next i
    .Range("A4:X27") = TabEtat
End With
End Sub