bonjour Gilles
essaye ce code et adapte le à ton appli
Option Explicit
Dim C As Range
Public LastSheet As String
Dim PLage As Range
Dim WsBase As Worksheet
Dim ActuelWkbk As Workbook
Dim NomLBindex As Integer
Dim LRecherche As Integer
Private Sub Modiflistecolon_Click()
Dim Cell As Object
Dim h As Integer
Dim maille As Boolean
Dim WsBase As Worksheet
Set WsBase = ActiveSheet
NomLBindex = Modiflistecolon.ListIndex + 1
modifnomcolon = WsBase.Range("b" & NomLBindex)
modifprenomcolon = WsBase.Range("c" & NomLBindex)
modifadressecolon = WsBase.Range("d" & NomLBindex)
TextBox3 = WsBase.Range("e" & NomLBindex)
With Range("f5:f" & Range("A65536").End(xlUp).Row)
Set Cell = .Find(Modiflistecolon, LookIn:=xlValues)
End With
Exit Sub
'modifnomcolon.Value = Cells([2], [2])
'modifprenomcolon.Value = Cells([2], [3])
' mais c'est pas bon, car je n'affiche que la TB modifnomcolon et modifprenomcolon
'soit seules celles qui j'ai programmées.
' Je ne connais pas la solution.
End Sub
@ plus
petchy