Bonsoir à tous
nouveau sur le forum et premier post .
voilà la question ?
j'ai fait un petit programme qui me permet de rechercher plusieurs mots dans une même colonne sur la feuille "9b2"
ensuite je copie cette ligne et je la colle dans une seconde
feuille "Casse_four "
et celà autant qu'il y a de critères de mots
sa fonctionne mais j'aimerais savoir si on peut simplifier la tache en sachant que je vais me retrouver avec une vingtaine de mots à chercher et que ma ligne "If Cells(ligne, 1).Value =" risque d'etre très longue
merci de m'apporter votre aide
voici les lignes du programme
Private Sub CommandButton9_Click()
Application.ScreenUpdating = False
Sheets("9b2").Select
derniere_ligne = Range("B65536").End(xlUp).Row
position_ligne = 1
position_four = 1
For ligne = 1 To derniere_ligne
Sheets("9b2").Select
If Cells(ligne, 1).Value = "pain" Or Cells(ligne, 1).Value = "croissant" Or Cells(ligne, 1).Value = "eclair" Or Cells(ligne, 1).Value = "baguette" Then
Rows(ligne).Select
Selection.Copy
Sheets("Casse_four").Select
Rows(position_four).Select
ActiveSheet.Paste
Application.CutCopyMode = False
position_four = position_four + 1
End If