Bonjour Creepy, TOM,
Si j'ai bien compris ton besoin, ce code devrait y répondre :
Private Sub UserForm_Initialize()
IdxCol = Application.ActiveCell.Column
IdxLig = Application.ActiveCell.Row
TextBox1.Value = Cells(1, IdxCol) 'Ligne 1, colonne de référence
TextBox2.Value = Cells(IdxLig, 1) 'Colonne 1, ligne de référence
End Sub
'Application.ActiveCell.Column ou row, permet de lire le N° de colonne/ligne de la cellule sélectionnée.