Sub Créér_Test()
[A1] = "Item_1": [A1].AutoFill Range("A1:J1"), 0: [A1:J1].Font.Bold = True
[A2:B100].FormulaR1C1 = Array("=""NOM ""&ROW()-1", "=""PRENOM ""&ROW()-1")
[C2:J100].FormulaR1C1 = "=ADDRESS(ROW(),COLUMN(),4)&"" ""&REPT(CHAR(RAND()*26+97),RANDBETWEEN(1,3))"
[A2:J100] = [A2:J100].Value
[A1].CurrentRegion.Borders.Weight = 2
End Sub