Private Sub CommandButton1_Click()
Dim C As Range, F1 As Worksheet, F2 As Worksheet
Set F1 = Sheets("Feuil1")
Set F2 = Sheets("Feuil2")
F2.Range(F2.Cells(4, 2), F2.Cells(Rows.Count, 11)).ClearContents
For Each C In F1.Range(F1.Cells(4, 1), F1.Cells(Rows.Count, 3).End(xlUp))
F2.Cells(C.Row, C.Value + 1) = "¢"
Next C
End Sub