'calcul nb f encolonne P (16)
Range("P" & ligne) = IIf(Right(Range("F" & ligne)) = "F", 1, 0) + IIf(Right(Range("I" & ligne)) = "F", 1, 0) + IIf(Right(Range("K" & ligne)) = "F", 1, 0) + IIf(Right(Range("M" & ligne)) = "F", 1, 0)
'calcul nb G en colonne Q (17)
Range("Q" & ligne) = IIf(Right(Range("F" & ligne)) = "G", 1, 0) + IIf(Right(Range("I" & ligne)) = "G", 1, 0) + IIf(Right(Range("K" & ligne)) = "G", 1, 0) + IIf(Right(Range("M" & ligne)) = "G", 1, 0)