[RESOLU] Récup d'info dans un Label

Private Sub UserForm_Initialize()
  With Feuil1
    Label1 = .Cells(ActiveCell.Row, 3)      '3 pour la colonne de noms
    Label2 = .Cells(14, ActiveCell.Column)  '14 pour la ligne des dates
  End With
End Sub

Private Sub UserForm_Initialize()
Label1 = ActiveCell(, 4 - ActiveCell.Column)
Label2 = ActiveCell(15 - ActiveCell.Row)
End Sub

Private Sub UserForm_Initialize()
Label1 = ActiveCell.EntireRow.Cells(3)
Label2 = ActiveCell.EntireColumn.Cells(14)
End Sub

 Private Sub Worksheet_SelectionChange(ByVal R As Range)
 With UserForm1
 If Not Intersect(R, [D15:I26]) Is Nothing And R.Count = 1 Then _
 .Label1 = Cells(R.Row, 3): .Label2 = Cells(14, R.Column): .Show
 End With
End Sub