bonsoir Jocelyn
tu peux tester
Sub RechercheColonneV02()
Dim Nom As Variant
Dim Plage As Range
Dim i As Integer, Resultat As Integer
'affiche une boite de dialogue pour saisir le nom à rechercher
Nom = InputBox('Donner le nom de l'utilisateur')
If IsNumeric(Nom) Then Nom = CDbl(Nom)
'numero de la derniere ligne non vide dans la colonne A
i = Range('A65536').End(xlUp).Row
'définit la plage ou va etre effectuée la recherche
'A1 jusqu'a la derniere cellule non vide dans la colonne A
Set Plage = Range('A1:A' & i)
On Error Resume Next
'verifie si le nom existe dans la plage cible
Resultat = Application.Match(Nom, Plage, 0)
'avec la fonction Match , si le nom n'est pas trouvé dans la plage : resultat =0
If Resultat = 0 Then
MsgBox Nom & ' n'existe pas dans la plage ' & Plage.Address
Else
'si le nom est trouvé dans la plage : resultat renvoie le numero de ligne dans la plage
MsgBox Cells(Resultat, 2) 'afficher la donnée de la colonne 2
'cells(numero_ligne,numero_colonne)
End If
End Sub
bon week end
MichelXld