Coller que la valeur dans une boucle de recherche

Bonjour,

Je recherche comment faire pour que ma plage copiée, se colle uniquement avec la valeur à la fin de la recherche... ?

Je précise juste que le code fonctionne très bien :)

Merci d'avance !

Dim i As Integer
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant, cherche
 cherche = Worksheets("Saisies").Range("B2").Value
    NoCol = 2 'lecture de la colonne B
For i = 4 To 22 'feuilles
Set FL1 = Worksheets(Worksheets(i).Name)
   For NoLig = 2 To 37 'colonne B
        Var = FL1.Cells(NoLig, NoCol)
        If Var = cherche Then
        Worksheets("Saisies").Range("B2:V2").Copy _
        Destination:=FL1.Cells(NoLig, 2)

        End If
    Next

Salut, à la fin de ta boucle sur NoLig c'est ça ?

Rajoute simplement :

If NoLig = 37 Then
...
End If

je ne sais pas si c'est ce que je recherche... ?

j'aurai voulu ajouter PastValue à quelques part mais je ne sais pas où ?

"à la fin de la recherche" signifie quoi exactement ?

A la fin de la boucle sur NoLig ou bien à la fin de la boucle sur i ?

Bonjour à tous,

Voici un essai si j'ai bien compris :

Dim i As Integer
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant, cherche, rCopy as range
cherche = Worksheets("Saisies").Range("B2").Value
NoCol = 2 'lecture de la colonne B
set rcopy = Worksheets("Saisies").Range("B2:V2")
For i = 4 To 22 'feuilles
    Set FL1 = Worksheets(i)
    For NoLig = 2 To 37 'colonne B
        Var = FL1.Cells(NoLig, NoCol)
        If Var = cherche Then
            FL1.Cells(NoLig, 2).resize(rcopy.rows.Count, rcopy.columns.count).value = rcopy.value
        End If
    Next
next i

Cdlt,

Pour le moment le code copie la ligne de la feuille saisie

Recherche dans le classeur la référence de la cellule X (la date)

et colle simplement sur la ligne demandée.

Et j'aurai souhaité que ça fonctionne la même chose mais que ça colle uniquement la valeur de la copie et non la mise en forme.