Sub Bouton1_Cliquer()
Dim X As Range, N As Long
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Worksheets
If Ws.Name <> "Feuil1" Then
Set X = Ws.Range("A1:A1000").Find("HISTORIC", , xlValues, xlWhole, , , False)
If X Is Nothing Then
MsgBox """HISTORIC"" n'existe pas dans la feuille """ & Ws.Name & """."
Else
Feuil1.Cells(1 + N, 1) = Ws.Cells(X.Row + 1, X.Column + 1).Value
Feuil1.Cells(1 + N, 2) = Ws.Cells(X.Row + 1, X.Column + 3).Value
N = N + 1: End If: End If: Next Ws
Application.ScreenUpdating = True
End Sub