Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
MAJ
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2]) Is Nothing Then MAJ
End Sub
Sub MAJ()
Range("B12", Cells(Rows.Count, Columns.Count)).Clear
On Error Resume Next
Evaluate(Replace([C2], " ", "_")).Copy [B12]
End Sub