Find quel galère

Bonjour,
j'ai 1 soucis avec find, mais cela doit venir du fait que j'interprète mal la fonction....
Après plusieurs recherches, j'ai trouvé cela

Public Sub test()
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer

rows("2:2").select

Set celluletrouvee = selection.find(what:="15 août", after:=activecell, lookin:=xlvalues)

If celluletrouvee Is Nothing Then
MsgBox ("pas trouvé")
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column
MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & col)
End If
Cells(col,ligne).Activate

End Sub

Qui marche bien mais le soucis est que je n'arrive pas à l'adapter a ce que je veux faire...:;,?

en fait ce que je veux faire c'est rechercher ds 1 colonne précise des variables (2.3.4 etc..)
et dupliquer les lignes en fonction du nombre inscrit ds la colonne.

Voilà merci de votre aide.