trouver le nombre

Option Explicit
Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim ws As Worksheet
Dim i As Long
Dim ligne As Long
Dim k As Byte

For Each ws In Worksheets 'pour chaque feuille du classeur
&nbsp; &nbsp; If ws.Name <> 'interrogation' Then 'sauf la feuille interrogation
&nbsp; &nbsp; &nbsp; &nbsp; tablo = ws.Range('a1').CurrentRegion 'creation d'un tableau avec les données
&nbsp; &nbsp; &nbsp; &nbsp; For i = 1 To UBound(tablo) 'boucle sur le tableau
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If tablo(i, 6) = Range('a1') Then 'si les données du tableau sont ok
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ligne = Range('a65536').End(xlUp).Row + 1 'copy les données
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(ligne, 1) = tablo(i, 6)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(ligne, 7) = ws.Name 'copie le nom de la feuille
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For k = 1 To 5
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(ligne, k + 1) = tablo(i, k)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next k
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; Next i
&nbsp; &nbsp; End If
Next ws
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End Sub

Cliquez pour agrandir...