Bonjour tout le monde,

Je vous fait un rapide topo :

J'ai une feuille qui intègre une liste de personnes avec leurs coordonnées et leurs formations et diplômes.
Comme le fichier est assez dense, j'ai crée plusieurs feuilles qui permet d'afficher qu'une partie des informations.

Pour faire le tri, je fais une recherche de la valeur d'une cellule, si elle est égale à "OUI" on copie une portion de la ligne. Et c'est là que ça se gâte !
Voila mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Dim i As Integer
 
    For i = 3 To Sheets("Totalité des informations").Cells(Rows.Count, "A").End(xlUp).Row
 
        If Sheets("Totalité des informations").Cells(i, "U") = "OUI" Then
 
          Sheets("Totalité des informations").Range(Cells(i, 22), Cells(i, 26)).Copy _
           Destination:=Sheets("Formateurs").Range(Cells(i, 6))
 
        End If
    Next

j'ai essayé avec plusieurs variantes (Worksheets,...) et tjs même erreur.

Merci de votre aide