Sub Création_Exemple_Pour_Luygys()
[B9:B60] = "=IF(MOD(ROW(),9)<>8,REPT(CHAR(RANDBETWEEN(65,90)),5),MOD(ROW(),9))"
[B9:B60] = [B9:B60].Value
MsgBox "Effacer les cellules égales à 8?", vbQuestion
Efface_II
End Sub
Private Sub Efface_II()
Dim p As Range
With ActiveSheet
T = .[B9:B1091].Value: Set p = .Cells(9, .Columns.Count).Resize(3 * 361)
p.FormulaR1C1 = "=IF(RC2=8,""$"",0)": p.SpecialCells(-4123, 2).Offset(, -Columns.Count + 2) = ""
.Columns(.Columns.Count).Clear
End With
End Sub