Bonjour le forum,
voici le code de la macro :
liste = 1
Range("AC5
K27").Select
Selection.Copy
Sheets("Feuil3").Select
Range("B60").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False
Application.CutCopyMode = False
For col = 2 To 88 Step 2
Range(Cells(61, col), Cells(82, col)).Select
Selection.Sort Key1:=Cells(61, col), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
lig = 61
Cells(lig, col).Select
While ActiveCell.Value = vide
lig = lig + 1
Cells(lig, col).Select
Wend
deb = ActiveCell.Row
ActiveWorkbook.Names.Add Name:="Liste" & liste, RefersToR1C1:= _
"=Feuil3!R" & deb & "C" & col & ":R82C" & col
liste = liste + 1
Next
La formule SI(OU... est donnée plus haut dans ce fil.
Bonne journée