Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim trouve As Range derlig = Range("B" & Rows.Count).End(xlUp).Row Set trouve = Range("B1:B" & derlig).Find(Range("A1").Value, LookIn:=xlValues) If Not trouve Is Nothing Then MsgBox "cellule trouvée :" & trouve.Address & " à la ligne " & trouve.Row & " de la colonne B" Else MsgBox "pas trouvé" End If