Boucle = 9
While (Boucle < 200)
If wb.Sheets("Gestion dossiers").Cells(Boucle, 1).Value >= 49 And wb.Sheets("Gestion dossiers").Cells(Boucle, 1).Value <= 30 Then
Boucle = (Boucle + 1)
Else:
wb.Sheets("Gestion dossiers").Cells(Boucle, 2).Copy Destination:=wb2.Sheets("Feuil1").Range("K1")
End If
Wend