Sub Reprtition()
Dim c As Range
Dim feuille As Worksheet
Dim i As Integer
Dim derligne As Integer, dl1 As Integer, dl2 As Integer, dl3 As Integer
dl1 = 1
dl2 = 1
dl3 = 1
With Sheets("Données")
derligne = .Cells(.Rows.Count, 14).End(xlUp).Row
For i = 1 To derligne
If .Cells(i, 14) = "Oui" Then .Range("a" & i, "t" & i).Copy Destination:=Sheets("Oui").Range("a" & dl1): dl1 = dl1 + 1
If .Cells(i, 14) = "Non" Then .Range("a" & i, "t" & i).Copy Destination:=Sheets("Non").Range("a" & dl2): dl2 = dl2 + 1
If .Cells(i, 14) = "Bof" Then .Range("a" & i, "t" & i).Copy Destination:=Sheets("Bof").Range("a" & dl3): dl3 = dl3 + 1
Next i
End With
End Sub