Sub Obtenir_Valeurs()
Texte = Split(Range("A1"), ":""") 'Changer "A1" par la cellule contenant l'extraction
For i = 2 To UBound(Texte) Step 2
Range("A" & 1 + CInt(i / 2)) = Left(Texte(i - 1), InStr(1, Texte(i - 1), Chr(34)) - 1) 'Changer ["A" & 1] par la colonne et le décallage en nombre de lignes voulu
Range("B" & 1 + CInt(i / 2)) = Left(Texte(i), InStr(1, Texte(i), Chr(34)) - 1) 'Changer ["B" & 1] par la colonne et le décallage en nombre de lignes voulu
Next
End Sub