XL 2019 Probleme Rechercher avec copie et offset en VBA

[zartent]

Bonjour,

Je cherche à copier le contenue d'une plage de valeurs d'une feuille "Feuil1" vers le tableau d'une autre feuille "Repair 2022" en utilisant la fonction recherche et en décalant la copie de 2 colonnes


Sub Test()

Dim SrcRng As Range
Dim myRange As Range
Dim cor As Variant
Dim SUIVI As Workbook


Sheets("Feuil1").Select
Set SrcRng = ActiveSheet.Range("D15").CurrentRegion

With SrcRng
Debug.Print .Address, .SpecialCells(xlCellTypeVisible).Address
.AutoFilter Field:=2, Criteria1:="<>"


Sheets("Repair 2022").Select
'.SpecialCells(xlCellTypeVisible).copy Destination:=Worksheets("Repair 2022").Range("A:S").Find(Worksheets("Feuil1").Range("B11").Offset(2, 0))


End With

End Sub

Pourriez vous m'aider à trouver un solution ?

cordialement

 

[vgendron]

Bonjour
Avec ton fichier exemple, on pourrait sans doute y voir plus clair