Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
dl = Cells(Rows.Count, 2).End(xlUp).Row
If dl = Target.Row Then
Set pl = Range("B1").Resize(dl - 1)
Set re = pl.Find(Target.Value, lookat:=xlWhole)
If Not re Is Nothing Then
Application.EnableEvents = False
re.Resize(, 6).Copy Target
Application.EnableEvents = True
End If
End If
End If
End Sub
J'ai adapté ta macro à mon fichier, mais ce que je souhaite ces que lorsque je rajoute plusieurs noms en colonne B il me les cherche! Cela m'éviterait de les insérer un par un étant donné que ça monte à 40 parfois