Good evening,
I tried twice to execute the following macro:

Sub startupdate()
Dim Rep As String
Dim tv
Dim lg As Byte
lg = 44
If IsEmpty(Range("E" & lg)) Then Range("E" & lg) = 0
If IsEmpty(Range("F" & lg)) Then Range("F" & lg) = 0
If IsEmpty(Range("G" & lg)) Then Range("G" & lg) = 0
tv = Range("E" & lg) & ":" & Range("F" & lg) & ":" & Range("G" & lg)

Rep = "Gestion:contrats de recherche:Base Contrats:"
Workbooks.Open Rep & "AERES.xls"
Application.OnTime Now + TimeValue(tv), "som"
End Sub
Sub som()
Dim depart, fin
depart = Now
'....code lines of macro som
Dim MasterWbk As Workbook
    Dim i As Long, cel As Range
    Dim passwords
    Application.ScreenUpdating = False
    Set MasterWbk = ThisWorkbook
   passwords = Array("aaa", "bbb", "ccc", "ddd", "eee", "fff", "ggg", "hhh", "iii", "jjj", "kkk", "lll", "mmm", "nnn", "ooo", "ppp", "qqq", "rrr", "sss", "ttt", "uuu", "vvv", "www", "xxx")
    MasterWbk.ActiveSheet.[C4:F35,C37:F38,K4:N35,K37:N38].ClearContents
    For i = 1 To 20
        Workbooks.Open "Gestion:web:telechargement:BD_equipe_" & i & ".xlsm", UpdateLinks:=3, Password:=passwords(i - 1)
        For Each cel In Sheets("Recap1").[C4:F35,C37:F38,K4:N35,K37:N38]
            MasterWbk.ActiveSheet.Range(cel.Address) = MasterWbk.ActiveSheet.Range(cel.Address) + cel.Value
        Next cel
        ActiveWorkbook.Close False
    Next i
    Workbooks("AERES.xls").Close SaveChanges:=False
fin = Now
MsgBox Format(fin - depart, "hh:mm:ss")
End Sub
This macro have been done by somebody else. I understand NOTHING in VBA.
This code has to open 21 files - AERES.xls, BD_equipe_1.xlsm,..., BD_equipe_20.xlsm and som the data.
However, I got each time a message "incompatibilé de type . Erreur N°13" (in French) and this code stop to run on the file BD_equipe_2.xlsm.
When I tried to open the debugger, the violet line was always indicated by yellow font.
May somebody advise me what should I do?
Thank you in advance!