Ah oui Ca marche très bien !! Merci ^^
Je suis allée un peu plus loin pour des raisons X et Y .... Je vous mets une partie de mon code pour que lorsque que j'ai choisi une fleur de référence, que les infos qui m'intéressent soit importer d'une feuille de classeur bien lourde et trop chargée vers une feuille moins chargée ...
A devoir ouvrir mon fichier j'ai choisi une autre alternative (sujet d'un autre post).
J'ai créé un petit programme tout bête en faite pour copier les informations de ma feuille trop chargée vers des cellules d'une autre feuille qui servira de synthèse ....
Sub CopierColler()
Dim Lig As Integer
Dim DLig As Integer
Dim Fleurx As String
Dim FleurRef As String
Dim InfoACopier As String
Dim InfoAColler As String
With Sheets("Feuil1")
DLig = .Range("A" & Rows.Count).End(xlUp).Row
End With
For Lig = 2 To DLig
Fleurx = Sheets("Feuil1").Cells(Lig, 1)
FleurRef = Sheets("Feuil1").Cells(2, 6)
InfoACopier = Sheets("Feuil2").Cells(Lig, 5)
InfoAColler = Sheets("Feuil1").Cells(3, 7)
If Fleurx = FleurRef Then
InfoAColler = InfoACopier
Worksheets("feuil1").Cells(Lig, 5).Value = InfoACopier
End If
Next Lig
End Sub
J'espère que ça en aidera certains !!
Encore merci pour votre aide !! Comme toujours