XL 2021 [RESOLU] Remplacer des formules pour du VBA

Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If [F1] <> "FEUILLE DE POINTAGE" Then Exit Sub ' On n'est pas sur une feuille de pointage, donc on sort
    On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [H11:H39]) Is Nothing Then         ' Si cellule remplie en colonne G
        With Sheets("N° d'affaires")
            DL = .Cells(Cells.Rows.Count, "A").End(xlUp).Row    ' Dernière ligne
            Tablo = .Range("B14:F" & DL)                        '¨Pays Capitales dans Tablo
        End With
        Ligne = Target.Row                                      ' N° ligne concernée
        If Cells(Ligne, "H") = "" Then                          ' Si H vidée
            Cells(Ligne, "G") = ""                              'on vide G
            Cells(Ligne, "J") = ""                              'on vide J
        Else
            Affaire = "": Responsable = ""                      ' On recherche la capitale concernée
            For i = 1 To UBound(Tablo)
                If Tablo(i, 2) = Target Then                    ' Si on trouve on mémorise Capitale et Resp.
                    Affaire = Tablo(i, 1): Responsable = Tablo(i, 4)
                    Exit For
                End If
            Next i
            Application.DisplayAlerts = False
            Cells(Ligne, "G") = Affaire                     ' On écrit dans les cellules
            Cells(Ligne, "J") = Responsable
        End If
    End If
Fin:
Application.DisplayAlerts = True
End Sub

Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If [F1] <> "FEUILLE DE POINTAGE" Then Exit Sub ' On n'est pas sur une feuille de pointage, donc on sort
    On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [H11:H39]) Is Nothing Then         ' Si cellule remplie en colonne G
        Application.DisplayAlerts = False
        L = Target.Row  ' N° ligne concernée
        Formule = "=SI(H" & L & "="""";"""";INDEX('N° d''affaires'!$B$2:$B$222;EQUIV(H" & L & ";'N° d''affaires'!$C$2:$C$222;0);1))"
        Cells(L, "G").FormulaLocal = Formule: Cells(L, "G") = Cells(L, "G").Value
        Formule = "=SI(H" & L & "="""";"""";INDEX('N° d''affaires'!$F$2:$F$222;EQUIV(H" & L & ";'N° d''affaires'!$C$2:$C$222;0);1))"
        Cells(L, "J").FormulaLocal = Formule: Cells(L, "J") = Cells(L, "J").Value
    End If
Fin:
Application.DisplayAlerts = True
End Sub