fichier avec colone

Sub Bouton1_QuandClic()
Dim c As String
Dim ligne As Integer
Dim i As Integer
Dim texte As String
Dim j As Byte

ligne = 1

For i = 2 To Range('a65536').End(xlUp).Row
        For j = 1 To 8
        c = Replace(Cells(i, j), '''', '')
                texte = texte & c
        Next j
        tablo = Split(texte, ',')
        For j = 0 To UBound(tablo)
                With Sheets('feuil2')
                        .Cells(ligne, 1) = tablo(0) 'titre
                        .Cells(ligne, 2) = tablo(1) 'nom complet
                        .Cells(ligne, 3) = tablo(4) 'fonction
                        .Cells(ligne, 4) = tablo(7) & ' ' & tablo(9) 'adresse complete
                        .Cells(ligne, 5) = tablo(10) 'téléphone
                End With
        Next j
        ligne = ligne + 1
        texte = ''
Next i

End Sub

Cliquez pour agrandir...