excuse moi je viens de faire sur un autre fichier j'ai copier le code comme tu la fais sur le premier fichier mais ça me fais erreur sur ligne 9
ca viens d'ou exactement j'ai changer dans le code pole 5 par pole 4 pareille
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A3:K3")) Is Nothing Then Exit Sub
If Application.CountA(Range("A3:K3")) = 0 Then
Range("A5").CurrentRegion.Offset(1, 0).Clear
Else
Sheets("Pole 5").ListObjects(1).Range.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A2:K3"), CopyToRange:=Range("A5").CurrentRegion.Resize(1), Unique:=False
End If
End Sub
je vous remercie par avance