Sub Ventilation()
Dim Nset%, Colonne%, Ligne1%, Ligne2%, Nom$
If [I3] = [T18] Then Ligne1 = 18 Else Ligne1 = 20 ' calcul N° de ligne nom1
If Ligne1 = 18 Then Ligne2 = 20 Else Ligne2 = 18 ' calcul N° de ligne nom2
Nset = [L3]: If Nset = 0 Then Exit Sub ' acquisition N° de set
Colonne = Application.Match([L3], [A17:AE17], 0) ' calcul de la colonne où écrire
Cells(Ligne1, Colonne) = [I3] ' écriture du score1
Cells(Ligne2, Colonne) = [S3] ' écriture du score2
[I3] = 0: [S3] = 0 ' raz des scores
Nom = [I13]: [I13] = [S13]: [S13] = Nom ' inversion des noms
End Sub