Sub Recopier()
Dim cel As Range, derlig As Long, feuil As String, Code_Agent As String
With Sheets("BASE")
For Each cel In .Range("I2:I" & [I65536].End(xlUp).Row)
If .Cells(cel.Row, 1).Value = ActiveCell.Value Then
Code_Agent = cel.Value
Select Case Code_Agent
Case "ANS"
'Ventiler dans la feuille "ANS"
feuil = "ANS"
derlig = Sheets(feuil).Range("A65536").End(xlUp).Row + 1
Sheets(feuil).Cells(derlig, 1).Resize(, 10) = .Cells(cel.Row, 1).Resize(, 10).Value
Case "ELD"
'Ventiler dans la feuille "ELD"
feuil = "ELD"
derlig = Sheets(feuil).Range("A65536").End(xlUp).Row + 1
Sheets(feuil).Cells(derlig, 1).Resize(, 10) = .Cells(cel.Row, 1).Resize(, 10).Value
Case "FLA"
'Ventiler dans la feuille "FLA"
feuil = "FLA"
derlig = Sheets(feuil).Range("A65536").End(xlUp).Row + 1
Sheets(feuil).Cells(derlig, 1).Resize(, 10) = .Cells(cel.Row, 1).Resize(, 10).Value
End Select
End If
Next cel
End With
End Sub