[_Thierry]

Bonjour Abel, Hervé, re Bonjour toute la Fine Equipe !!!

Merci vraiment de vous être tous penchés sur cette Démo ! C'est génial !

Entre temps, j'ai découvert un Bug aussi, bien plus embêtant, alors que j'avais prévu la Routine 'WriteRenewingDepositSameBank' je ne la lançait pas ! Arf !

En clair, si vous sélectionnez dans les Dépots existant arrivant à maturité, exemple :

BANK OF MONTREAL * LED ZEP * EUR 15 M 25/10/2005

Que vous le splittez ainsi :

BANK OF MONTREAL EUR 5 M (Renouvellement Même Banque Depôt)
DEUTCHE BANK EUR 5 M (Nouvelle Banque Depôt)
DRESDNER BANK EUR 5 M (Nouvelle Banque Depôt)
CITIBANK EUR 28,462.50 (Banque Compte Courant)

Et bien horreur et damnation !!! Le PrintOut adressé à B.O.M. comporte des zones Vides (Arf Arf)

Voici le 'Patch S/P1'
Pour remplacement pûr et simple de la Sub 'CollectingRenewedDep' en Top de Module 'BuildingFaxMat'

Sub CollectingRenewedDep() '<<<<< Corrected
Dim i As Byte, j As Byte, y As Byte, X As Byte, Z As Byte, Compteur As Byte, BankNew As Byte, Matching AsByte
Dim TabBankSelected() AsString
Dim TabBankOrigine() AsString
Dim ColBankUniqueSelected As Collection
Dim ColBankUniqueOrigine As Collection
Dim TabBankUniqueOrigine() AsVariant
Dim BankMulti AsByte
Dim Existing AsByte
Dim BankItem AsVariant
Dim Bank1 As String, Bank2 As String, Bank3 As String, Bank4 AsString

Dim Cell As Range
Dim FirstAddress AsString
Dim TheBank AsString
Dim TotalTxbMoney() AsDouble
Dim MoneyToSend AsDouble
Dim SQLSearch AsString
Dim SendingMoneyOut AsBoolean

CleaningFaxMat
CleaningFaxNew

&nbsp; &nbsp; With SelectedMatured
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For i = 1 To .Range('B255').End(xlUp).Row
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If .Cells(i, 11) = '' Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ReDimPreserve TabBankOrigine(X)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TabBankOrigine(X) = .Cells(i, 2)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; X = X + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next
&nbsp; &nbsp; EndWith

X = 0

&nbsp; &nbsp; &nbsp; &nbsp; For i = 1 To 4
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If USFSplitDep.Controls('TxbBank' & i).Value <> '' Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BankNew = BankNew + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf
&nbsp; &nbsp; &nbsp; &nbsp; Next

&nbsp; &nbsp; &nbsp; &nbsp; For i = 1 To BankNew
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If USFSplitDep.Controls('TxbBank' & i).Value <> '' Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ReDimPreserve TabBankSelected(X)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TabBankSelected(X) = USFSplitDep.Controls('TxbBank' & i).Value
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; X = X + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf
&nbsp; &nbsp; &nbsp; &nbsp; Next i


Set ColBankUniqueSelected = New Collection


&nbsp; &nbsp; For i = 0 To UBound(TabBankSelected)
&nbsp; &nbsp; OnErrorResumeNext
&nbsp; &nbsp; ColBankUniqueSelected.Add TabBankSelected(i), TabBankSelected(i)
&nbsp; &nbsp; Next
&nbsp; &nbsp;
&nbsp; &nbsp; ForEach BankItem In ColBankUniqueSelected
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BankMulti = BankMulti + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Compteur = 0
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For i = 0 To UBound(TabBankSelected)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If BankItem = TabBankSelected(i) Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Compteur = Compteur + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Existing = 0
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For X = 0 To UBound(TabBankOrigine)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If BankItem = TabBankOrigine(X) Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Existing = Existing + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next X
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next i
&nbsp; &nbsp; ReDimPreserve TabBankUniqueSelected(3, Z)
&nbsp; &nbsp; TabBankUniqueSelected(0, Z) = BankItem
&nbsp; &nbsp; TabBankUniqueSelected(1, Z) = Existing
&nbsp; &nbsp; TabBankUniqueSelected(2, Z) = Compteur
&nbsp; &nbsp; Z = Z + 1
&nbsp; &nbsp;
&nbsp; &nbsp; Next BankItem

&nbsp; &nbsp;
Set ColBankUniqueOrigine = New Collection
&nbsp; &nbsp;
&nbsp; &nbsp; Z = 0
&nbsp; &nbsp; For i = 0 To UBound(TabBankOrigine)
&nbsp; &nbsp; OnErrorResumeNext
&nbsp; &nbsp; ColBankUniqueOrigine.Add TabBankOrigine(i), TabBankOrigine(i)
&nbsp; &nbsp; Next
&nbsp; &nbsp;
&nbsp; &nbsp; ForEach BankItem In ColBankUniqueOrigine
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Compteur = 0
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For i = 0 To UBound(TabBankOrigine)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If BankItem = TabBankOrigine(i) Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Compteur = Compteur + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Existing = 0
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For X = 0 To UBound(TabBankSelected)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If BankItem = TabBankSelected(X) Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Existing = Existing + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next X
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next i
&nbsp; &nbsp; ReDimPreserve TabBankUniqueOrigine(3, Z)
&nbsp; &nbsp; TabBankUniqueOrigine(0, Z) = BankItem
&nbsp; &nbsp; TabBankUniqueOrigine(1, Z) = Existing
&nbsp; &nbsp; TabBankUniqueOrigine(2, Z) = Compteur
&nbsp; &nbsp; Z = Z + 1
&nbsp; &nbsp;
&nbsp; &nbsp; Next BankItem
&nbsp; &nbsp;
NombreBankMaturity = UBound(TabBankUniqueOrigine, 2)
NombreBankRenewing = UBound(TabBankUniqueSelected, 2)
&nbsp; &nbsp;
BuildingRenewedDep

ReDimPreserve TotalTxbMoney(4)
&nbsp; TotalTxbMoney(0) = TbxMoneyVal1
&nbsp; TotalTxbMoney(1) = TbxMoneyVal2
&nbsp; TotalTxbMoney(2) = TbxMoneyVal3
&nbsp; TotalTxbMoney(3) = TbxMoneyVal4
&nbsp;
OnErrorGoTo 0
&nbsp;
&nbsp; &nbsp;
&nbsp; &nbsp; SQLSearch = ''' & SelectedMatured.Range('C1') & '''
&nbsp; &nbsp; With MatrixMat
&nbsp; &nbsp; &nbsp; &nbsp; .Range('I3') = Date
&nbsp; &nbsp; &nbsp; &nbsp; .Range('I4') = 'D-' & Format(Home.Range('A1') + 1, '00000')
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If ReNewIngDep = True Then: Home.Range('A1') = Home.Range('A1') + 1
&nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; .Range('I5') = SelectedMatured.Range('J1')
&nbsp; &nbsp; &nbsp; &nbsp; .Range('A1') = USFSplitDep.LabelCompany
&nbsp; &nbsp; &nbsp; &nbsp; .Range('A2') = CompanyDetailADOQuery(SQLSearch, 4)
&nbsp; &nbsp; &nbsp; &nbsp; .Range('C5') = TabBankUniqueOrigine(0, 0) & ', ' & VlookupBankData(TabBankUniqueOrigine(0, 0), 3)
&nbsp; &nbsp; &nbsp; &nbsp; .Range('C6') = VlookupBankDetails(TabBankUniqueOrigine(0, 0), 5)
&nbsp; &nbsp; &nbsp; &nbsp; .Range('C7') = VlookupBankDetails(TabBankUniqueOrigine(0, 0), 6)
&nbsp; &nbsp; EndWith


If TabBankUniqueOrigine(1, 0) > 0 Then
&nbsp; &nbsp; &nbsp; &nbsp; For y = 0 To NombreBankRenewing
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; With SelectedMatured.UsedRange
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If TabBankUniqueOrigine(0, 0) = TabBankUniqueSelected(0, y) Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CountMaturityFax = TabBankUniqueOrigine(2, 0)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WriteClosingDeposit CountMaturityFax, CStr(TabBankUniqueOrigine(0, 0))
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CountRenewingFax = TabBankUniqueSelected(2, y)

'HERE >>>>>>>> WAS MISSING THE FOLLOWING LINE :
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WriteRenewingDepositSameBank CountRenewingFax, CStr(TabBankUniqueSelected(0, y))
'================================================= ================================================== =====
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Z = 1 To NombreBankRenewing
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If TabBankUniqueOrigine(0, 0) <> TabBankUniqueSelected(0, Z) Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TheBank = TabBankUniqueSelected(0, Z)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MoneyToSend = 0
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For j = 1 To 4
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If USFSplitDep.Controls('TxbBank' & j).Value = TheBank Then
&nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set Cell = .Find(TheBank, , , xlWhole)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; IfNot Cell IsNothingThen
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; FirstAddress = Cell.Address
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Do
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Offset(0, 12) = 'Tagged'
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set Cell = .FindNext(Cell)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; LoopWhileNot Cell IsNothing And Cell.Address <> FirstAddress
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf

&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MoneyToSend = MoneyToSend + TotalTxbMoney(j - 1)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next j
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WriteOtherBanksToSend TheBank, MoneyToSend
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WriteInterestToCurrentAccount
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SendingMoneyOut = True
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next Z
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If SendingMoneyOut = FalseThen WriteInterestToCurrentAccount
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf
&nbsp; &nbsp; EndWith
&nbsp; &nbsp; Next y
Else
&nbsp; &nbsp; &nbsp; &nbsp; For y = 0 To NombreBankRenewing
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; With Renewed.UsedRange
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CountMaturityFax = TabBankUniqueOrigine(2, 0)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WriteClosingDeposit CountMaturityFax, CStr(TabBankUniqueOrigine(0, 0))
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TheBank = TabBankUniqueSelected(0, y)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MoneyToSend = 0
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For j = 1 To 4
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If USFSplitDep.Controls('TxbBank' & j).Value = TheBank Then

&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set Cell = .Find(TheBank, , , xlWhole)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; IfNot Cell IsNothingThen
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; FirstAddress = Cell.Address
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Do
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Offset(0, 12) = 'Tagged'
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set Cell = .FindNext(Cell)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; LoopWhileNot Cell IsNothing And Cell.Address <> FirstAddress
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf

&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MoneyToSend = MoneyToSend + TotalTxbMoney(j - 1)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next j
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WriteOtherBanksToSend TheBank, MoneyToSend
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WriteInterestToCurrentAccount
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndWith
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next y
EndIf
HiddingLinesMat
EndSub

Sorry for inconvenience !!!

Pour Hervé, oui la partie 'New Deposit' et loin d'être blindée encore, en fait c'est la cerise sur le gateau qui est la partie la plus 'facile' mais que j'ai un peu délaissée, mais au moins tu as bien testé, merci à toi aussi. (je veillerai à vérouiller un peu mieux)

Pour Abel et MichelXLD, et bien je vois que êtes connaisseurs Blue Oyster Cult ;-) bravo !

Et grand grand grand merci à tous

Bon App
[ol]@+Thierry[/ol]