Sub SplitCell(Chaine As String, Separateur As String, Destination As Range)
'Exemple d'utilisation :  SplitCell ActiveSheet.Cells(1, 2).Value, "/", ActiveSheet.Cells(1, 4)
    Dim tabl() As String
    Dim i As Integer
    Dim lig As Integer, col As Integer
    tabl = Split(Destination.Address, "$")
    col = ColonneExcelToN(tabl(1))
    lig = tabl(2)
    
    tabl = Split(Chaine, Separateur)
    For i = 0 To UBound(tabl)
        ActiveSheet.Cells(lig, col).Value = tabl(i)
        lig = lig + 1
    Next
End Sub