Dim I as Integer, J as Integer, LigneTestée as Integer
J = 1
For LigneTestée = 1 to 100
If Cells(LigneTestée, 47) = "instance" then
For I = 1 to 57
Sheets(Date).Cells(J, I)= Sheets("Base").Cells(LigneTestée, I)
Next I
J = J + 1
End If
Next LigneTestée