Sub Recopie()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Feuille macro" Then
If InStr(ws.Name, ws.[I2].Text) > 0 Then
Sheets("Feuille macro").[A1].CurrentRegion.Offset(1).Copy ws.Cells(Rows.Count, 1).End(3)(2)
End If
Application.CutCopyMode = False
End If
Next
End Sub