Macro : Supprimer les premiers caractères d'une chaine

=SUPPRESPACE(SI(ESTNUM(CHERCHE(": ";D1));DROITE(D1;NBCAR(D1)-CHERCHE(":";D1));D1))

Private Sub CommandButton1_Click()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Temp = Trim(Cells(i, 1))
    For j = 1 To Len(Temp)
        If Mid(Temp, j, 1) Like "#" Then
            Cells(i, 2) = Mid(Temp, j, Len(Temp))
            Exit For
        End If
    Next j
Next i
End Sub

Sub test
For x = 2 To Cells(Rows.Count, 4).End(xlUp).Row
    Temp = Trim(Cells(x, 4))
    For j = 1 To Len(Temp)
        If Mid(Temp, j, 1) Like "#" Then
            Cells(x, 4) = Mid(Temp, j, Len(Temp))
            Cells(x, 4).Value = Replace(Cells(x, 4), vbCrLf,"")
            Exit For
        End If
    Next j
Next x
End sub
[\CODE]

Cells(x, 4).Value = Replace(Cells(x, 4).Value, vbLf, "")

Sub test()
For x = 2 To Cells(Rows.Count, 4).End(xlUp).Row
    Temp = Trim(Cells(x, 4))
    Temp = Replace(Temp, Chr(10), "")
    For j = 1 To Len(Temp)
        If Mid(Temp, j, 1) Like "#" Then
            Cells(x, 4) = Mid(Temp, j, Len(Temp))
        Exit For
        End If
    Next j
Next x
End Sub