ligne = 1
Do Until Cells(ligne, 1) = ""
If Cells(ligne, 4) = "S" Then Cells(ligne, 10).Value = Cells(ligne, 5).Value
If Cells(ligne, 4) = "V" Then Cells(ligne, 15).Value = Cells(ligne, 5).Value
If Cells(ligne, 4) = "T" Then Cells(ligne, 12).Value = Cells(ligne, 5).Value
ligne = ligne + 1
Loop