Aide sur l'adaptation de mon code

Bonjour,

j'aurai besoin d'un peu d'aide pour adapter mon code, repartant d'une macro que j'utilise déjà.

J'ai voulu l'adapter pour un nouveau projet mais je bloque sur un point. C'est que je ne souhaite pas copier toute la ligne mais un nombre de cellules définies sur la ligne.

J'ai essayé de retourner dans tous les sens mais je tombe à cours d'idées.

Comment modifier :

Cellule.EntireRow.Copy R

Pour que celui-ci dans la premier conditions par exemple copie seulement de la colonne B à L de la ligne trouvé sur la plage R ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim yyd As Integer
    Dim recherche As String

    Dim ia As Integer

    If Not Application.Intersect(Target, Range("C4:C20")) Is Nothing Then

        yyd = Target.Row
        recherche = Cells(yyd, 5)

        If recherche = "" Then Exit Sub

            Dim Cellule As Range
            Dim R As Range
            Set R = Range("N4")

            For ia = 2 To 3
                Sheets(ia).Activate

                If ia = 2 Then

                    For Each Cellule In ActiveSheet.UsedRange
                    If UCase(Cellule) Like "*" & UCase(recherche) & "*" Then

                        Cellule.EntireRow.Copy R

                        Set R = R.Offset(1)
                    End If
                    Next Cellule
                    Application.CutCopyMode = False

                Else

                    For Each Cellule In ActiveSheet.UsedRange
                    If UCase(Cellule) Like "*" & UCase(recherche) & "*" Then

                        Cellule.EntireRow.Copy R

                        Set R = R.Offset(1)
                    End If
                    Next Cellule
                    Application.CutCopyMode = False

                End If

            Next ia

    End If

End Sub

Je vous remercie d'avance de votre aide

Bonjour,

un essai : range("B" & Cellule.Row & ":L" & Cellule.Row).Copy R

@ bientôt

LouReeD

Parfait, j'avais déjà essaie sous cette forme .... mais il manquait un truc que je viens de rajouter Sheets("EXPE_LIVR").Range("B" & Cellule.Row & ":L" & Cellule.Row).Copy R

Merci

Evidemment, si les données viennent d'une autre feuille !

Merci pour le retour !

@ bientôt

LouReeD