Bonjour et merci de votre aide, je ne pige rien en VB j'ai ecris dans la macro vos formules, mais je ne sais pas placer la dernière modif, des trois modifs en italiques, es ce bon .
Ca parait fonctionner et je ne sais pas pourquoi!
De plus dans la fenêtre "Suite sorties plusieurs fois" c'est le grand bordel !!!
quand j'incrémente les résultats des sortis des tirages colonne B les modifs ne s'effectuent pas dans les autres colonnes!!!!
Voici une copie de la modif macro ci bas
Sub macrojob752dec()
Dim Recherche As Range, P As Range, Dates As Range, c As Range, Q As Range, R As Range
Set Recherche = [T11:X11]
Set P = [E:I]
Set Recherche = [Y11:Z11]
Set P = [J:K]
Set Dates = [D
]
If Intersect(Target, Recherche) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.EnableEvents = True
On Error Resume Next 'si aucune SpecialCell
'Recherche.Offset(1).Resize(Rows.Count - Recherche.Row, Recherche.Columns.Count + 1).Delete xlUp 'RAZ
Recherche.Offset(1).Resize(Rows.Count - Recherche.Row, Recherche.Columns.Count + 2).ClearContents 'RAZ
For Each c In Recherche
If c <> "" Then
P.Replace c, "#N/A", xlWhole
Set Q = Nothing
Set Q = P.SpecialCells(xlCellTypeConstants, 16)
If Q Is Nothing Then Exit Sub
Q = c
Set Q = Intersect(Q.EntireRow, P)
If R Is Nothing Then Set R = Q Else Set R = Intersect(Q, R)
If R Is Nothing Then Exit Sub
End If
Next
'---résultat---
R.Copy Recherche(2, 1)
Intersect(R.EntireRow, Dates).Copy Recherche(2, Recherche.Columns.Count + 1)
End Sub