Bonjour tout le monde, Justine, M12,
rien de sorcier, vraiment!
Re-Salut Justine,
rien de sorcier...
[code=vb] 'démarrage de la macro quand on clique sur la ligne d'en-tête
If Not Application.Intersect(Target, Range("A1:Z1")) Is Nothing Then
'fond de la colonne de données
iRow = Range("S" & Rows.Count).End(xlUp).Row
'lignes d'affichage des résultats
iLig1 = 1
iLig2 = 1
'
'copie des en-têtes
For x = 2 To 3
Range("A1:Z1").Copy Destination:=Sheets(x).Range("A1")
Next
'
For x = 3 To iRow
'scan de chaque ligne
'la feuille à incrémenter n'est pas encore connue
iSh = 0
Select Case Cells(x, 19)
Case 3
'si affaire gagnée
iLig1 = iLig1 + 1
iSh = 3
Case 4
'si affaire perdue
iLig2 = iLig2 + 1
iSh = 2
End Select
If iSh > 0 Then
'si option 3 ou 4 sur la ligne scannée
iLig = IIf(iSh = 3, iLig1, iLig2)
'copie des données correspondantes dans la feuille (iSh) désignée
Range("A" & x & ":Z" & x).Copy Destination:=Sheets(iSh).Range("A" & iLig)
End If
Next
Sheets(2).Columns("A:Z").AutoFit
Sheets(3).Columns("A:Z").AutoFit
End If
'
A+[/code]
A+