Private Sub CommandButton2_Click()
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show
UserForm1.TextBox9.Text = .SelectedItems(1)
End With
End Sub
Private Sub CommandButton3_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
Application.ScreenUpdating = False
With Worksheets("Suivi")
derligne = .Range("A65536").End(xlUp).Row + 1
For Each Ctrl In UserForm1.Controls
r = Val(Ctrl.Tag)
If r > 0 Then Sheets("Suivi").Cells(derligne, r) = Ctrl
Next
Sheets("Suivi").Cells(derligne, 1) = Val(TextBox1)
End With
Application.ScreenUpdating = True
Unload Me
End Sub