Option base 1
Sub Recherche_Dans_Tab()
'création du tableau "tampon" par rapport à ma base en feuille "Base"
With Sheets("Base")
Dim der_Lig As Integer
der_Lig = .Range("A1").End(xlDown).Row
Dim Tab_Tampon()
ReDim Tab_Tampon(der_Lig, 8)
For i = 1 To der_Lig - 1
Tab_Tampon(i, 1) = .Range("A" & i + 1)
Tab_Tampon(i, 2) = .Range("B" & i + 1)
Tab_Tampon(i, 3) = .Range("C" & i + 1)
Tab_Tampon(i, 4) = .Range("D" & i + 1)
Tab_Tampon(i, 5) = .Range("E" & i + 1)
Tab_Tampon(i, 6) = .Range("F" & i + 1)
Tab_Tampon(i, 7) = .Range("G" & i + 1)
Tab_Tampon(i, 8) = .Range("H" & i + 1)
Next i
End With
'Fin de la création du tableau "tampon"
'j'aimerais filter dans mon Tab_Tampon la valeur qui se trouve en A1 dans ma feuille "Modele" (cette info se trouve dans la colonne 1 de mon Tab_Tampon)
Filter(Tab_Tampon(), Sheets("Modele").Range("A1")) ' c'est ce que j'ai commencé à écrire mais je bloque par la suite
'Après avoir filtrer j'aimerais copier/coller la colonne 3 de mon Tab_Tampon dans le feuille "Modele" avec les valeurs restantes après mon filtre
End Sub