Macro de regroupement de données

    Sub afficher(feuille As sheet)
    Dim i As Integer
    Dim j As Integer
'affiche a partir de la ligne 15
    i = 15
'trouve la ligne vide
    worskheet(1).Activate
    Range(i, 1).Select
    Do While Not (IsEmpty(ActiveCell))
        i = i + 1
        Range(i, 1).Select
    Loop
'recopie les 10 permieres lignes de la feuille
    For j = 1 To 10
        Worksheets(1).cell(i, j).Copy Destination:=Worksheets(feuille).cell(j, 2)
    Next
    
End Sub

Sub rechercheMotClef(recherche)

         ' Declare Current as a worksheet object variable.
         Dim Current As Worksheet

         ' Loop through all of the worksheets in the active workbook.
         For Each Current In Worksheets
            If Range(B6) = recherche Then
            afficher (Current)
            End if
                    
         Next

End Sub