Private Sub CommandButton1_Click()
Dim i As Integer
For j = 1 To Sheets("EA_1 M").Range("IV5").End(xlToLeft).Column
For i = 2 To Sheets("EA_1 M").Range("B65536").End(xlUp).Row 'c'est pas util de changer vers une auttre colone!!
Cells(i, j) = Application.Substitute(Cells(i, j), "*", "") ' comme s'il est figer sur la colone B !!
Next i
Next
MsgBox ("Asterisk is ejected !!")
End Sub