Sub PourTest()
Dim t, tt
t = Array("NOM1", "PRENOM1", "RUE DES 1", "ADRESSE1", "CPOSTAL1", "VILLE1", "NUMTEL1", "FAX 1", "EMAIL 1")
tt = Array("NOM", "PRENOM", "VOIE", "ADRESSE", "CODE POSTAL", "VILLE", "TELEPHONE", "FAX", "EMAIL")
Application.ScreenUpdating = False
[A1:I1] = tt: [A2:I2] = t
Range("A2:I2").AutoFill Destination:=Range("A2:I150"), Type:=xlFillDefault
[A1].CurrentRegion.Borders.LineStyle = 1
Rows(150).Columns.AutoFit
End Sub