dernier chose gmb,
je veux ajouter ce filtre sur la partie formation je n'arrive pas à l'adopter
Option Explicit
Dim Cel As Range, zD
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("A2:BZ2")) Is Nothing Then
Set zD = Range("A7:BZ" & Rows.Count)
zD.AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("A1:BZ2"), Unique:=False
End If
End Sub
Sub RAZ()
Range("A2:Q2").ClearContents
Range("A2").ClearContents
End Sub
merci