Bonjour à tous
A partir d'une ligne et tant que la cellule de la colonne 1 = la valeur d'une autre cellule
Je voudrais copier certaines cellules de la ligne active
Mais j'ai un message "incompatibilité de type"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub ChercheDetail()
Worksheets("Détail").Range("A2:J2500").ClearContents
GSM = Worksheets("Détail").Range("C1").Value
Valeur_Cherchee = "Section 7"
 
Worksheets("Données").Activate
Set PlageDeRecherche = ActiveSheet.Columns(1)
i = PlageDeRecherche.Find(what:=Valeur_Cherchee, LookIn:=xlValues).Row
i = PlageDeRecherche.Find(what:=GSM, After:=ActiveCell, LookIn:=xlValues).Row
Application.ScreenUpdating = False
 
With Sheets("Données")
j = 3
Do While Cells(i, 1).Value = GSM
 
       Cells(i, 8).Copy Worksheets("Détail").Cells(j, 1)
        Cells(i, 9).Copy Worksheets("Détail").Cells(j, 2)
        j = j + 1
        i = i + 1
Loop
 
End With
 
Application.ScreenUpdating = True
 
Worksheets("Détail").Activate
 
Set PlageDeRecherche = Nothing
End Sub
Merci d'avance pour votre aide