Private Sub Créer_Click()
' Intégration des valeurs de l'useform
Dim Lg As Long, i%, f As Worksheet
Set f = Sheets("Accueil")
Lg ="D" & f.Cells(Rows.Count, 2).End(xlUp).Row + 1
For i = 2 To 7
f.Cells(Lg, i) = Me.Controls("TextBox" & i - 1)
Next
'Création d'une feuille
With Sheets.Add(After:=f)
.Name = f.Cells(Lg, 2) & "_" & f.Cells(Lg, 6)
.Cells(2, 1).Resize(6).Font.Bold = True
.Cells(2, 1).Resize(6) = _
Application.Transpose(Array("Code IRSI", "Site", "Adresse", vbNullString, "Numéro Travaux", "Intitulé Travaux"))
.Cells(2, 3).Resize(6) = _
Application.Transpose(f.Cells(Lg, 2).Resize(, 6))
End With
'Afficher l'image de la feuille
'...
'ici reprendre le code initial
'...
'Unload ferme l'UserForm
Unload Me
End Sub