For Each £Ctrl In Me.Controls
Select Case TypeName(£Ctrl)
Case "TextBox"
£coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))' on récupère le numéro du textbox pour déterminer
'la colonne à utiliser
Me.Controls(£Ctrl.Name).Value = .Cells(£ligne1, £coln)
Case "ComboBox"
£coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))
Me.Controls(£Ctrl.Name).Value = .Cells(£ligne1, £coln)
End Select
Next £Ctrl