Sub repartir()
Dim i As Long
Dim lidep1 As Long
dim ligne1 as long
Dim j As Long
Dim nomfeuille1 As String
Dim col1 As String
Dim col2 As String
Dim posv As Integer
Dim col3 As String
Dim cellule As Range
col1 = "a"
lidep1 = 2
With Sheets(ActiveSheet.Name)
For Each cellule In .Range(col1 & lidep1 & ":" & col1 & .Range(col1 & "65536").End(xlUp).Row)
If cellule.Value <> "" Then
posv = InStr(1, cellule.Value, ",")
col2 = Mid(cellule.Value, 1, posv - 1)
Select Case col2
Case "n"
col3 = "B"
ligne1 = .Range(col3 & "65536").End(xlUp).Row + 1
Case "n1"
col3 = "C"
Case "a"
col3 = "D"
Case "a1"
col3 = "e"
Case "cp"
col3 = "f"
Case "v"
col3 = "g"
End Select
.Range(col3 & ligne1) = Mid(cellule.Value, posv + 2, 100)
End If
Next cellule
End With
End Sub