Bonjour
Mais ce n'est pas ce que tu voulais
Choix dans la liste t'affiche toutes les références
Si tu modifies dans la page du modèle il faut que tu réactualises l'affichage en re-sélectionnant la valeur dans la liste déroulante
J'ai vu que j'avais oublié une instruction dans le code
Remplace la macro dans la feuille Récap par celle-ci
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Target.Address = "$C$3" Then
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
With Sheets("Récap")
If .Range("C65536").End(xlUp).Row > 7 Then
.Range("C8:L" & .Range("C65536").End(xlUp).Row).ClearContents
End If
End With
With Sheets(Target.Value)
.Range("A4:C" & .Range("A65536").End(xlUp).Row).Copy
Sheets("Récap").Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
.Range("G4:M" & .Range("A65536").End(xlUp).Row).Copy
Sheets("Récap").Range("F65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End With
Range("C3").Select
Application.CutCopyMode = False
Application.EnableEvents = True
End If
End Sub
Bonne journée