bonjour j'ai ce code qui fonctionne mais qui ne demare pas a une cellule precis
il va mettre les lignes a 10000 je sais bien qu'il y a UsedRange.Row mais quand meme es que l'on peu lui atribuer une cellule de demarage voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
   For Each c In Range("plagevaleur")
        If c.Text = "inférieur" Then
            Sheets("Feuil1").Rows(c.Row).Copy
 
            Sheets("Feuil2").Activate
            Sheets("Feuil2").Range("A" & CStr(Sheets("Feuil2").UsedRange.Row + Sheets("Feuil2").UsedRange.Rows.Count)).Select
            Sheets("Feuil2").PasteSpecial
        End If
    Next
End Sub
merci pour tout