Macro suppression *

Bonsoir,

essaie ca :
Sub remplace_etoiles()
Dim reponse As String, i As Long, nl As Long, c As Byte, tableau As Variant

reponse = MsgBox("Avez-vous selectionné une cellule de la colonne à modifier ?", vbYesNo, "Selection de la colonne")
If reponse = 7 Then End
nl = ActiveCell.CurrentRegion.Rows.Count
c = ActiveCell.Column
tableau = Range(Cells(1, c), Cells(65536, c))

For i = 2 To 65536
tableau(i, 1) = IIf(tableau(i, 1) = "*", tableau(i - 1, 1), tableau(i, 1))
Next i

Range(Cells(1, c), Cells(65536, c)) = tableau


End Sub