selectionner une plage en fonction d'une variable

Bonjour,


Cf J : http://cjoint.com/?mkxl48O5EB

Sub copiePavé()
mot = "toto"
témoin = False
For Each c In Range("A1:A500")
If c.Value = mot Then
If témoin = False Then
Range(c.Address).Resize(, 6).Select
témoin = True
End If
Union(Selection, Range(c.Address).Resize(, 6)).Select
End If
Next c
Selection.copy Sheets(1).Range("k1")
End Sub

Cordialement JB

Bonsoir.
Pas sûr d'avoir compris. Essaie :

Sub test1()
Dim Ligne As Long, c As Range, Depart As String
If [A1] = "toto" Then
Ctr = 1
Range("A1:F1").Copy Sheets("Feuil5").Range("A1")
Depart = "$A$1"
End If
Set c = Range("A1:A1000").Find("toto", lookat:=xlWhole)
If Not c Is Nothing And Depart = "" Then Depart = c.Address
Do
Ctr = Ctr + 1
Range(c, c.Offset(0, 5)).Copy Sheets("Feuil5").Range("A" & Ctr)
Set c = Range("A1:A1000").FindNext(c)
Loop While Not c Is Nothing And c.Address <> Depart
End Sub

Cordialement.
Daniel
"marianne puget" <puget.marianne@neuf.fr> a écrit dans le message de news:
ebkwa4c$FHA.2264@tk2msftngp13.phx.gbl...

Bonjour,
issu d'un find je récupere :toto
je souhaite dans un range("a1:f1000") recuperer toutes les ligne dont toto
est connu dans la colonne A
copier cette plage(a : f) pour la coller dans une autre sheet.
Pouvez-vous m'aider
En vous remeciant par avance
cricri