Sub Macro1()
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim dico As Object 'déclare la variable dico (DICtiOnnaire)
Dim cel As Range 'déclare la varialbe cel (CELlule)
Dim temp As Variant 'déclare la variable temp (tableau TEMPoraire)
Dim o As Object 'déclare la variable o (Onglet)
Dim dest As Range 'déclare la variable dest (cellule de DESTination)
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1" (à adapter à ton cas)
dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne A
Set pl = .Range("K2:K" & dl) 'définit la plage pl (colonne K)
End With 'fin de la prise ene compte de l'onglet "Feuil1"
Set dico = CreateObject("Scripting.Dictionary") 'définit le dictionnaire dico
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
dico(cel.Value) = "" 'alimente le dictionnaire
Next cel 'prochaine cellule de la boucle
temp = dico.keys 'récupère le dictionnaire sans doublon
For x = LBound(temp) To UBound(temp) 'boucle sur tous les éléments uniques du tableau temp
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
Set o = Sheets(temp(x)) 'définit l'onglet o (si cet onglet n'exoste pas cela génère une erreur
If Err <> 0 Then 'condition : si une erreur a été générée
Err = 0 'annule l'erreur
Sheets.Add after:=Sheets(Sheets.Count) 'ajoute un onglet
ActiveSheet.Name = temp(x) 'nommne l'onglet
Set o = Sheets(temp(x)) 'définit l'onglet o
End If 'fin de la condition
On Error GoTo 0 'annule la gestion des erreur
'définit la cellule de destination (A1, si A1 est vide, sinon la première ligne vide de la colonne A)
Set dest = IIf(o.Range("A1").Value = "", o.Range("A1"), o.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
Sheets("Feuil1").Range("A1").AutoFilter field:=11, Criteria1:=temp(x) 'filte le tableau en fonction de temp(x)
pl.SpecialCells(xlCellTypeVisible).EntireRow.Copy dest 'copie les lignes filtrées et les colle dans dest
Sheets("Feuil1").ShowAllData 'supprime le filtre
Next x 'prochaine élément unique du tableau temp
End Sud