Bonjour,

j'ai réalisé 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
Dim derniereLigne As Integer
Dim serie() As Variant
Dim i As Integer
Dim val As Variant
Dim engin As String


derniereLigne = calc_D.Sheets("Base").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
ReDim serie(derniereLigne)

LignesMax = derniereLigne

For i = 2 To LignesMax
    If Sheets("Base").Cells(i, 7) <> "" Then
        val = Sheets("Base").Cells(i, 7).Value
        serie(i) = Split(val, "/")
    End If
Next i

For i = 1 To UBound(serie)
       If Not (IsEmpty(serie(i))) Then
    val = serie(i)
    val = WorksheetFunction.VLookup(val, Sheets("Engins").Range("b3:c19"), 2, False)

    engin = CStr(val)
If engin = "X2100" Or engin = "XR6000" Then       
calc_S.Sheets("x2100+xr").Cells(i + 3, 4) = engin
        End If
    End If
Next i
Et j'ai l'erreur sur la ligne en italique : " erreur 13: incompatibilité de type"

Si une personne peut m'aider à comprendre l'erreur! Merci!