Bonjour,
essai ca je sais pas si ca correspond a ta question
ca te cherhce les restau qui appartienne au secteur demander et les exporte sur la 2e feuille excel
Sub Bouton1_QuandClic()
Dim secteur As String
Dim ligne,colonne As Integer
Dim i,n
ligne = 1
i = 1
secteur = InputBox("entrez le secteur recherchez?")
While Not IsEmpty(Sheets("feuil1").Cells(ligne, 1))
ligne = ligne + 1
If Sheets("feuil1").Cells(ligne, 1) = secteur Then
n = 1
i = i + 1
colonne = 2
While Not IsEmpty(Sheets("feuil1").Cells(ligne, colonne))
Sheets("feuil2").Cells(i, n) = Sheets("feuil1").Cells(ligne, colonne).Value
colonne = colonne + 1
n = n + 1
Wend
End If
Wend
End Sub