Sub Macro4()
'
' Macro4 Macro
'

'
    Dim nbIp As Integer
    Dim ip()
    nbIp = WorksheetFunction.CountIf(Cells, "Identité patient")
    MsgBox (nbIp)
    ReDim ip(nbIp)

    Cells.Find(What:="Identité patient").Activate
    ip(1) = ActiveCell.Row

    For i = 2 To nbIp
        Cells.FindNext(After:=ActiveCell).Activate
        ip(i) = ActiveCell.Row
        MsgBox ip(i)
    Next i