Private Sub CommandButton1_Click()
'Sur un Userform, ajoute un Label que tu nommeras Label1600
'et un CommandButton
i = 1600
MsgBox Me.Controls("Label" & i).Name, vbExclamation, "Nom du Label"
Ligne = i
MsgBox "Adresse de la cellule selon le label:" _
& Chr(13) & Cells(i, "S").Address(0, 0), vbInformation, "Soyons fou de bon matin!"
Me.Hide
End Sub