Sub Secret_Story_I()
Range("A1") = "ENTETE_1"
Range("A1").AutoFill Destination:=Range("A1:J1"), Type:=xlFillDefault
Range("A2:J20").FormulaR1C1 = "=REPT(ADDRESS(ROW(),COLUMN(),4),3)"
Range("A2:J20").Value = Range("A2:J20").Value
End Sub
Sub Secret_Story_II()
Range("A1") = "ENTETE_1"
Range("A1").AutoFill Destination:=Range("A1:J1"), Type:=xlFillDefault
Range("A2:J2") = Array("NOM1", "ADRESSE1", "ADRESSE_B1", "CP1", "VILLE1", "TEL1", "FAX1", "EMAIL1", "CONTACT1", "SERVICE1")
Range("A2:J2").AutoFill Destination:=Range("A2:J30"), Type:=xlFillDefault
End Sub