Erreur définie par l'application ou par l'objet au format date

**BDA53** · 03/12/2015, 14h08

à tous !

Je souhaite mettre les valeurs d'une fiche de calcul dans une base de données.
J'ai fait le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub Sauvegarder_Click()
    Dim t(2 To 10000, 1 To 20), l, c, col, compteur, res As Integer
    Dim Wb As Workbook
    Set Wb = GetObject("C:\Users\Documents\Macro\MaMacro2015.xlsm")
    col = 0
    compteur = 0

    If Wb.Worksheets(1).Cells(1, 2) = Worksheets(2).Cells(13, 1) Then col = 2
    If Wb.Worksheets(1).Cells(1, 11) = Worksheets(2).Cells(13, 2) Then col = 11
    If Wb.Worksheets(1).Cells(1, 6) = Worksheets(2).Cells(13, 3) Then col = 6
    If Wb.Worksheets(1).Cells(1, 7) = Worksheets(2).Cells(13, 4) Then col = 7
    If Wb.Worksheets(1).Cells(l, 14) = Worksheets(2).Cells(5, 6) Then col = 14
    If Wb.Worksheets(1).Cells(1, 15) = Worksheets(2).Cells(7, 8) Then col = 15
    For res = 18 To 30
        If Worksheets(2).Cells(8, 2) = Worksheets(1).Cells(res, 6) Then Wb.Worksheets(1).Cells(l, 13) = Worksheets(1).Cells(res, 6)
    Next res
    
    For l = LBound(t, 1) To UBound(t, 1)
    
        For c = LBound(t, 2) To UBound(t, 2)
           
            If Wb.Worksheets(1).Cells(l, c) = "" Then
                Select Case col
                    Case Is = 2
                        Wb.Worksheets(1).Cells(l, col) = Worksheets(2).Cells(14 + compteur, 1)
                    Case Is = 6
                        Wb.Worksheets(1).Cells(l, col) = Worksheets(2).Cells(14 + compteur, 2)
                    Case Is = 7
                        Wb.Worksheets(1).Cells(l, col) = Worksheets(2).Cells(14 + compteur, 3)
                    Case Is = 11
                        Wb.Worksheets(1).Cells(l, col) = Worksheets(2).Cells(14 + compteur, 4)
                    Case Is = 14
                        Wb.Worksheets(1).Cells(l, col) = Worksheets(2).Cells(5, 6)
                    Case Is = 15
                        Wb.Worksheets(1).Cells(l, col) = Worksheets(2).Cells(7, 8)
                    End Select
            End If
            
        Next c
        
    Next l
End Sub

J'ai le message d'erreur suivant à la ligne rouge : "Erreur définie par l'application ou par l'objet". Dans cette ligne je souhaite rentrer une date dans une colonne destinée aux dates. La colonne est déjà en format "Date" alors ça me laisse perplexe.

Si quelqu'un peut me venir en aide ça me sauverait la vie