XL 2016 Boucle

Bonjour,

J'aimerai pouvoir copier le nom du gestionnaire présent en colonne B en face des lignes correspondantes à sa gestion. Bien sûr je ne connais pas à l'avance le nombre de lignes pour chaque gestionnaire. J'étais partie sur l'idée que : si la cellule B contient gestionnaire alors copie de la valeur 4 lignes en dessous et tant que le numéro de séquence est complété (colonne C).

Sub Essai()

Dim Lr As Long
Dim MyRange As Range
Lr = Range("B" & Rows.Count).End(xlUp).Row

' si la cellule B contient gestionnaire
Range("A1").Value = "=IF(ISNUMBER(SEARCH(""gestionnaire"",RC[1])),RC[1],"""")"
Range("A1").AutoFill Destination:=Range("A1:A" & Lr)

Set MyRange = Sheets("Essai").UsedRange.Find("Gestionnaire")

ActiveCell.Offset(4, 0).Select

End Sub

Cliquez pour agrandir...

Cela fait un moment que je suis sur le sujet et que je n'y arrive pas. J'ai très certainement pris le problème à l'envers !

Pourriez-vous m'aider.

Merci