Sub MacroDevis()
'
'
Range("B16:M16").Select
Selection.Copy
Range("B17:M17").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("Tableau2[[#Headers],[Filtre]]").Select
ActiveSheet.ListObjects("Tableau2").Range.AutoFilter Field:=12, Criteria1:= _
"<>"
ActiveSheet.ListObjects("Tableau2").Range.AutoFilter Field:=12
Rows("16:16").Select
Selection.EntireRow.Hidden = True
ActiveSheet.ListObjects("Tableau2").Range.AutoFilter Field:=12, Criteria1:= _
"<>"
End Sub