XL 2010 Problème retour chariot (Résolu )

d1(y) = Mid(d1(y), 2)
(d2(y) = Mid(d2(y), 2)

For i = 2 To UBound(SF1)

    x = SF1(i, 1)
    y = SF1(i, 2)
    z = SF1(i, 3)
   
    If x <> "" Then d1(y) = IIf(d1.exists(y), d1(y) & Chr(10), "") & x
    If z <> "" Then d2(y) = IIf(d2.exists(y), d2(y) & Chr(10), "") & z

Next

For i = 2 To UBound(SF1)

    x = SF1(i, 1)
    y = SF1(i, 2)
    z = SF1(i, 3)

    If x & z <> "" Then
        d1(y) = IIf(d1.exists(y), d1(y) & Chr(10), "") & x
        d2(y) = IIf(d2.exists(y), d2(y) & Chr(10), "") & z
    End If
 
Next

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Column = 1 Then Target(1, 2).Select
    If Target.Column = 2 Then Target(2, 0).Select
End If
End Sub