XL 2016 Remplir une colonne automatiquement

[pwolf]

Bonjour,
Je suis novice sur VBA, j'aimerais remplir une cellule automatiquement avec les données d'une autre cellule.
mon objectifs est de rechercher premierement mon groupe de matiere premiere ici DZOL5 puis rechercher la matieres première ASS_DA prendre ces données le mettre dans l'autre groupe de resultat bb5 et prendre les donneés de ASS_DA le mettre dans DA-plan.

voila mon code qui fait les deux premieres recherche et qui copie les données de ASS_DA dans DA-Plan sans faire les deux autres recherche.

Sub search()

Dim cpt1, cpt2, lastLine As Integer

cpt1 = 11

cpt2 = 6

Sheets("Sheet1").Select

While (Cells(cpt1, cpt2) <> "")

If (Cells(cpt1, cpt2) = "DZOL5") Then

cpt1 = cpt1 + 1

If (Cells(cpt1, cpt2) = "ASS_DA") Then

lastLine = Sheets("Sheet1").Range("A65536").End(xlUp).Row

Range(Cells(14, cpt2), Cells(lastLine, cpt2)).Select

Selection.Copy

Range("AO14").Select

ActiveSheet.Paste

Exit Sub



End If

cpt1 = cpt1 - 1

End If

cpt2 = cpt2 + 1

Wend



End Sub

Pouvez vous m'aider a completer les deux autres recherche afin de remplir au bon endroit svp.

voir le fichier book1 pour mieux comprendre