For I = 1 To 4
If Me("RaF" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 5) = I
If Me("Force" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 6) = I
If Me("Vitesse" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 7) = I
If Me("aisance" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 8) = I
If Me("coordination" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 9) = I
If Me("dissociation" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 10) = I
If Me("perception" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 11) = I
If Me("centration" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 12) = I
If Me("VAH" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 13) = I
If Me("abs" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 14) = I
If Me("formalisation" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 15) = I
If Me("AMA" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 16) = I
If Me("ecoute" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 17) = I
If Me("combativite" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 18) = I
If Me("perseverance" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 19) = I
If Me("plaisir" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 20) = I
If Me("curiosite" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 21) = I
If Me("rigueur" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 22) = I
If Me("entraide" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 23) = I
If Me("solidarite" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 24) = I
If Me("espritdequipe" & I).Value = True Then ActiveSheet.Cells(numLigneVide, 25) = I
Next I