Private Sub CommandButton1_Click()
With Worksheets('liste').Range('A1:G1')
Set cherché = .Find(what:='nom', LookIn:=xlValues)
colonne = cherché.Column
End With
With Worksheets('liste').Range('A1:A65535')
Set cherché = .Find(what:=Worksheets('Feuil1').Range('E16'), LookIn:=xlValues)
If cherché Is Nothing Then
ActiveCell.Value = ''
Exit Sub
Else
ligne = cherché.Row
End If
End With
ActiveCell.Value = Worksheets('liste').Cells(ligne, colonne)
End Sub