Sub ChargementDonnées()
Dim Chemin As String, RngFic As Range, TFic(), C As Long, NomFic As String, DatFic As Date, WbkDon As Workbook
Chemin = Me.[CheminDonnées].Value
Set RngFic = Me.[TabFichiers]: TFic = RngFic.Value
For C = 2 To 5
If TFic(3, C) < TFic(6, C) Then
Set WbkDon = Workbooks.Open(Chemin & TFic(5, C))
Select Case C
Case 2: VerserDonnées WshRuptur, WbkDon
Case 3: VerserDonnées WshExtRea, WbkDon
Case 4: VerserDonnées WshRécept, WbkDon
Case 5: VerserDonnées WshCdeCX3, WbkDon
End Select
WbkDon.Close SaveChanges:=False
If VersementOK Then
TFic(2, C) = TFic(5, C)
TFic(3, C) = TFic(6, C)
TFic(4, C) = Now
End If
Next C
End Sub